home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / Frontier SDK 2.1.sit / Frontier SDK 2.1 / Sample Code / OutlineSharer / main.c next >
MacBinary  |  1992-10-11  |  13.9 KB  |  [TEXT/KAHL]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: main.c

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Oct 11 14:30:00 1992, modified Sun Oct 11 14:30:00 1992, creator Think C, type ASCII, 13680 bytes "main.c" , at 0x35f0 340 bytes resource default (weak)
99% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-4K) default (weak)
16% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[KAHL]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 6d 61 69 6e 2e 63 | 00 00 00 00 00 00 00 00 |..main.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 35 70 00 | 00 01 54 a6 fe 23 28 a6 |.....5p.|..T..#(.|
|00000060| fe 23 28 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.#(.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8c bb 00 00 |........|........|
|00000080| 0d 2f 2a a9 20 43 6f 70 | 79 72 69 67 68 74 20 31 |./*. Cop|yright 1|
|00000090| 39 39 32 20 55 73 65 72 | 4c 61 6e 64 20 53 6f 66 |992 User|Land Sof|
|000000a0| 74 77 61 72 65 2c 20 49 | 6e 63 2e 20 20 41 6c 6c |tware, I|nc. All|
|000000b0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|000000c0| 2e 2a 2f 0d 0d 0d 2f 2a | 0d 42 72 69 65 66 6c 79 |.*/.../*|.Briefly|
|000000d0| 20 2d 2d 20 74 68 69 73 | 20 69 73 20 61 20 76 65 | -- this| is a ve|
|000000e0| 72 79 20 73 6d 61 6c 6c | 20 70 72 6f 67 72 61 6d |ry small| program|
|000000f0| 20 74 68 61 74 20 64 65 | 6d 6f 6e 73 74 72 61 74 | that de|monstrat|
|00000100| 65 73 20 74 68 65 20 55 | 73 65 72 4c 61 6e 64 20 |es the U|serLand |
|00000110| 4f 75 74 6c 69 6e 65 20 | 53 68 61 72 69 6e 67 0d |Outline |Sharing.|
|00000120| 70 72 6f 74 6f 63 6f 6c | 2e 20 46 6f 72 20 64 65 |protocol|. For de|
|00000130| 74 61 69 6c 65 64 20 69 | 6e 66 6f 2c 20 73 65 65 |tailed i|nfo, see|
|00000140| 20 74 68 65 20 65 6e 63 | 6c 6f 73 65 64 20 22 41 | the enc|losed "A|
|00000150| 62 6f 75 74 20 4f 75 74 | 6c 69 6e 65 20 53 68 61 |bout Out|line Sha|
|00000160| 72 69 6e 67 22 20 66 69 | 6c 65 2e 0d 0d 50 6c 65 |ring" fi|le...Ple|
|00000170| 61 73 65 20 63 6f 6e 74 | 61 63 74 20 55 73 65 72 |ase cont|act User|
|00000180| 4c 61 6e 64 20 53 6f 66 | 74 77 61 72 65 20 61 74 |Land Sof|tware at|
|00000190| 20 6f 6e 20 41 70 70 6c | 65 4c 69 6e 6b 20 61 74 | on Appl|eLink at|
|000001a0| 20 74 68 65 20 55 73 65 | 72 4c 61 6e 64 20 44 69 | the Use|rLand Di|
|000001b0| 73 63 75 73 73 69 6f 6e | 20 62 6f 61 72 64 20 75 |scussion| board u|
|000001c0| 6e 64 65 72 0d 74 68 65 | 20 54 68 69 72 64 20 50 |nder.the| Third P|
|000001d0| 61 72 74 69 65 73 20 69 | 63 6f 6e 2c 20 6f 72 20 |arties i|con, or |
|000001e0| 47 4f 20 55 53 45 52 4c | 41 4e 44 20 6f 6e 20 43 |GO USERL|AND on C|
|000001f0| 6f 6d 70 75 53 65 72 76 | 65 20 66 6f 72 20 66 75 |ompuServ|e for fu|
|00000200| 72 74 68 65 72 20 69 6e | 66 6f 72 6d 61 74 69 6f |rther in|formatio|
|00000210| 6e 20 6f 6e 20 6f 75 74 | 6c 69 6e 65 20 0d 73 68 |n on out|line .sh|
|00000220| 61 72 69 6e 67 2e 20 0d | 0d 57 65 20 68 6f 70 65 |aring. .|.We hope|
|00000230| 20 79 6f 75 20 6c 69 6b | 65 20 6f 75 74 6c 69 6e | you lik|e outlin|
|00000240| 65 20 73 68 61 72 69 6e | 67 20 61 6e 64 20 61 64 |e sharin|g and ad|
|00000250| 64 20 69 74 20 74 6f 20 | 79 6f 75 72 20 4d 61 63 |d it to |your Mac|
|00000260| 69 6e 74 6f 73 68 20 61 | 70 70 6c 69 63 61 74 69 |intosh a|pplicati|
|00000270| 6f 6e 2e 0d 0d 54 68 61 | 6e 6b 73 21 0d 0d 55 73 |on...Tha|nks!..Us|
|00000280| 65 72 4c 61 6e 64 20 53 | 6f 66 74 77 61 72 65 0d |erLand S|oftware.|
|00000290| 0d 37 2f 31 2f 39 32 20 | 44 57 3a 20 41 64 64 65 |.7/1/92 |DW: Adde|
|000002a0| 64 20 73 75 70 70 6f 72 | 74 20 66 6f 72 20 73 79 |d suppor|t for sy|
|000002b0| 73 74 65 6d 20 65 76 65 | 6e 74 20 68 61 6e 64 6c |stem eve|nt handl|
|000002c0| 65 72 73 2e 0d 2a 2f 0d | 0d 0d 23 69 6e 63 6c 75 |ers..*/.|..#inclu|
|000002d0| 64 65 20 3c 6d 65 6e 75 | 73 68 61 72 69 6e 67 2e |de <menu|sharing.|
|000002e0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 69 61 63 |h>.#incl|ude <iac|
|000002f0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 22 6f 75 |.h>.#inc|lude "ou|
|00000300| 74 6c 69 6e 65 73 68 61 | 72 69 6e 67 2e 68 22 0d |tlinesha|ring.h".|
|00000310| 0d 0d 23 64 65 66 69 6e | 65 20 61 70 70 6c 65 6d |..#defin|e applem|
|00000320| 65 6e 75 20 31 32 38 20 | 2f 2a 74 68 65 20 72 65 |enu 128 |/*the re|
|00000330| 73 6f 75 72 63 65 20 69 | 64 20 6f 66 20 74 68 65 |source i|d of the|
|00000340| 20 61 70 70 6c 65 20 6d | 65 6e 75 2a 2f 0d 0d 23 | apple m|enu*/..#|
|00000350| 64 65 66 69 6e 65 20 61 | 62 6f 75 74 69 74 65 6d |define a|boutitem|
|00000360| 20 31 20 2f 2a 74 68 65 | 20 61 62 6f 75 74 20 63 | 1 /*the| about c|
|00000370| 6f 6d 6d 61 6e 64 2a 2f | 0d 0d 23 64 65 66 69 6e |ommand*/|..#defin|
|00000380| 65 20 66 69 6c 65 6d 65 | 6e 75 20 31 32 39 20 2f |e fileme|nu 129 /|
|00000390| 2a 72 65 73 6f 75 72 63 | 65 20 69 64 20 6f 66 20 |*resourc|e id of |
|000003a0| 66 69 6c 65 20 6d 65 6e | 75 2c 20 73 68 61 72 65 |file men|u, share|
|000003b0| 64 20 6d 65 6e 75 73 20 | 61 70 70 65 61 72 20 74 |d menus |appear t|
|000003c0| 6f 20 72 69 67 68 74 20 | 6f 66 20 74 68 69 73 2a |o right |of this*|
|000003d0| 2f 0d 0d 23 64 65 66 69 | 6e 65 20 66 69 72 73 74 |/..#defi|ne first|
|000003e0| 73 68 61 72 65 64 6d 65 | 6e 75 20 66 69 6c 65 6d |sharedme|nu filem|
|000003f0| 65 6e 75 2b 31 20 2f 2a | 72 65 73 6f 75 72 63 65 |enu+1 /*|resource|
|00000400| 20 69 64 20 66 6f 72 20 | 66 69 72 73 74 20 73 68 | id for |first sh|
|00000410| 61 72 65 64 20 6d 65 6e | 75 2a 2f 0d 0d 23 64 65 |ared men|u*/..#de|
|00000420| 66 69 6e 65 20 71 75 69 | 74 69 74 65 6d 20 31 20 |fine qui|titem 1 |
|00000430| 2f 2a 74 68 65 20 73 69 | 6e 67 6c 65 20 69 74 65 |/*the si|ngle ite|
|00000440| 6d 20 69 6e 20 74 68 65 | 20 66 69 6c 65 20 6d 65 |m in the| file me|
|00000450| 6e 75 20 2d 2d 20 74 68 | 69 73 20 69 73 20 61 20 |nu -- th|is is a |
|00000460| 76 65 72 79 20 73 69 6d | 70 6c 65 20 70 72 6f 67 |very sim|ple prog|
|00000470| 72 61 6d 21 2a 2f 0d 0d | 4d 65 6e 75 48 61 6e 64 |ram!*/..|MenuHand|
|00000480| 6c 65 20 68 61 70 70 6c | 65 6d 65 6e 75 2c 20 68 |le happl|emenu, h|
|00000490| 66 69 6c 65 6d 65 6e 75 | 3b 20 2f 2a 74 68 65 20 |filemenu|; /*the |
|000004a0| 74 77 6f 20 66 69 78 65 | 64 2c 20 6e 6f 6e 2d 73 |two fixe|d, non-s|
|000004b0| 68 61 72 65 64 20 6d 65 | 6e 75 73 20 69 6e 20 74 |hared me|nus in t|
|000004c0| 68 69 73 20 70 72 6f 67 | 72 61 6d 2a 2f 0d 0d 57 |his prog|ram*/..W|
|000004d0| 69 6e 64 6f 77 50 74 72 | 20 6d 61 69 6e 77 69 6e |indowPtr| mainwin|
|000004e0| 64 6f 77 20 3d 20 6e 69 | 6c 3b 20 2f 2a 74 68 65 |dow = ni|l; /*the|
|000004f0| 20 6d 65 6e 75 20 73 68 | 61 72 69 6e 67 20 74 65 | menu sh|aring te|
|00000500| 73 74 20 77 69 6e 64 6f | 77 2a 2f 0d 0d 53 74 72 |st windo|w*/..Str|
|00000510| 32 35 35 20 77 69 6e 64 | 6f 77 6d 65 73 73 61 67 |255 wind|owmessag|
|00000520| 65 3b 20 2f 2a 74 68 65 | 20 6d 65 73 73 61 67 65 |e; /*the| message|
|00000530| 20 74 68 61 74 27 73 20 | 64 69 73 70 6c 61 79 65 | that's |displaye|
|00000540| 64 20 69 6e 20 74 68 65 | 20 6d 61 69 6e 20 77 69 |d in the| main wi|
|00000550| 6e 64 6f 77 2a 2f 0d 0d | 73 68 6f 72 74 20 66 6c |ndow*/..|short fl|
|00000560| 65 78 69 74 6d 61 69 6e | 6c 6f 6f 70 20 3d 20 66 |exitmain|loop = f|
|00000570| 61 6c 73 65 3b 20 2f 2a | 77 68 65 6e 20 74 72 75 |alse; /*|when tru|
|00000580| 65 20 77 65 20 66 61 6c | 6c 20 74 68 72 75 20 74 |e we fal|l thru t|
|00000590| 68 65 20 6d 61 69 6e 20 | 65 76 65 6e 74 20 6c 6f |he main |event lo|
|000005a0| 6f 70 2a 2f 0d 09 0d 09 | 0d 0d 0d 73 74 61 74 69 |op*/....|...stati|
|000005b0| 63 20 76 6f 69 64 20 63 | 6f 70 79 73 74 72 69 6e |c void c|opystrin|
|000005c0| 67 20 28 53 74 72 32 35 | 35 20 73 6f 75 72 63 65 |g (Str25|5 source|
|000005d0| 2c 20 53 74 72 32 35 35 | 20 64 65 73 74 29 20 7b |, Str255| dest) {|
|000005e0| 0d 0d 09 2f 2a 0d 09 63 | 72 65 61 74 65 20 61 20 |.../*..c|reate a |
|000005f0| 63 6f 70 79 20 6f 66 20 | 73 6f 75 72 63 65 20 69 |copy of |source i|
|00000600| 6e 20 64 65 73 74 2e 20 | 20 63 6f 70 79 20 74 68 |n dest. | copy th|
|00000610| 65 20 6c 65 6e 67 74 68 | 20 62 79 74 65 20 61 6e |e length| byte an|
|00000620| 64 0d 09 61 6c 6c 20 74 | 68 65 20 63 68 61 72 61 |d..all t|he chara|
|00000630| 63 74 65 72 73 20 69 6e | 20 74 68 65 20 73 6f 75 |cters in| the sou|
|00000640| 72 63 65 20 73 74 72 69 | 6e 67 2e 0d 0d 09 61 73 |rce stri|ng....as|
|00000650| 73 75 6d 65 20 74 68 65 | 20 73 74 72 69 6e 67 73 |sume the| strings|
|00000660| 20 61 72 65 20 70 61 73 | 63 61 6c 20 73 74 72 69 | are pas|cal stri|
|00000670| 6e 67 73 2c 20 77 69 74 | 68 20 74 68 65 20 6c 65 |ngs, wit|h the le|
|00000680| 6e 67 74 68 20 62 79 74 | 65 20 69 6e 0d 09 74 68 |ngth byt|e in..th|
|00000690| 65 20 66 69 72 73 74 20 | 63 68 61 72 61 63 74 65 |e first |characte|
|000006a0| 72 20 6f 66 20 74 68 65 | 20 73 74 72 69 6e 67 2e |r of the| string.|
|000006b0| 0d 09 2a 2f 0d 0d 09 72 | 65 67 69 73 74 65 72 20 |..*/...r|egister |
|000006c0| 73 68 6f 72 74 20 69 2c | 20 6c 65 6e 3b 0d 09 0d |short i,| len;...|
|000006d0| 09 6c 65 6e 20 3d 20 28 | 73 68 6f 72 74 29 20 73 |.len = (|short) s|
|000006e0| 6f 75 72 63 65 20 5b 30 | 5d 3b 0d 09 0d 09 66 6f |ource [0|];....fo|
|000006f0| 72 20 28 69 20 3d 20 30 | 3b 20 69 20 3c 3d 20 6c |r (i = 0|; i <= l|
|00000700| 65 6e 3b 20 69 2b 2b 29 | 20 0d 09 09 64 65 73 74 |en; i++)| ...dest|
|00000710| 20 5b 69 5d 20 3d 20 73 | 6f 75 72 63 65 20 5b 69 | [i] = s|ource [i|
|00000720| 5d 3b 0d 09 7d 20 2f 2a | 63 6f 70 79 73 74 72 69 |];..} /*|copystri|
|00000730| 6e 67 2a 2f 0d 0d 0d 73 | 74 61 74 69 63 20 76 6f |ng*/...s|tatic vo|
|00000740| 69 64 20 65 6c 6c 69 70 | 73 69 7a 65 20 28 53 74 |id ellip|size (St|
|00000750| 72 32 35 35 20 73 2c 20 | 73 68 6f 72 74 20 77 69 |r255 s, |short wi|
|00000760| 64 74 68 29 20 7b 0d 0d | 09 2f 2a 0d 09 69 66 20 |dth) {..|./*..if |
|00000770| 74 68 65 20 73 74 72 69 | 6e 67 20 66 69 74 73 20 |the stri|ng fits |
|00000780| 69 6e 73 69 64 65 20 74 | 68 65 20 67 69 76 65 6e |inside t|he given|
|00000790| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 69 78 65 6c | number |of pixel|
|000007a0| 73 2c 20 66 69 6e 65 20 | 2d 2d 20 64 6f 20 6e 6f |s, fine |-- do no|
|000007b0| 74 68 69 6e 67 0d 09 61 | 6e 64 20 72 65 74 75 72 |thing..a|nd retur|
|000007c0| 6e 2e 0d 09 0d 09 69 66 | 20 6e 6f 74 2c 20 72 65 |n.....if| not, re|
|000007d0| 74 75 72 6e 20 61 20 73 | 74 72 69 6e 67 20 74 68 |turn a s|tring th|
|000007e0| 61 74 20 64 6f 65 73 20 | 66 69 74 2c 20 77 69 74 |at does |fit, wit|
|000007f0| 68 20 65 6c 6c 69 70 73 | 65 73 20 72 65 70 72 65 |h ellips|es repre|
|00000800| 73 65 6e 74 69 6e 67 20 | 74 68 65 20 0d 09 64 65 |senting |the ..de|
|00000810| 6c 65 74 65 64 20 63 68 | 61 72 61 63 74 65 72 73 |leted ch|aracters|
|00000820| 2e 20 20 65 6c 6c 69 70 | 73 65 73 20 61 72 65 20 |. ellip|ses are |
|00000830| 67 65 6e 65 72 61 74 65 | 64 20 62 79 20 70 72 65 |generate|d by pre|
|00000840| 73 73 69 6e 67 20 6f 70 | 74 69 6f 6e 2d 73 65 6d |ssing op|tion-sem|
|00000850| 69 63 6f 6c 6f 6e 2e 0d | 09 2a 2f 0d 09 0d 09 72 |icolon..|.*/....r|
|00000860| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 6c 65 6e |egister |char len|
|00000870| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 73 68 6f 72 |;..regis|ter shor|
|00000880| 74 20 6e 65 77 77 69 64 | 74 68 3b 0d 09 0d 09 69 |t newwid|th;....i|
|00000890| 66 20 28 28 6e 65 77 77 | 69 64 74 68 20 3d 20 53 |f ((neww|idth = S|
|000008a0| 74 72 69 6e 67 57 69 64 | 74 68 20 28 73 29 29 20 |tringWid|th (s)) |
|000008b0| 3c 3d 20 77 69 64 74 68 | 29 20 2f 2a 6e 6f 74 68 |<= width|) /*noth|
|000008c0| 69 6e 67 20 74 6f 20 64 | 6f 2c 20 74 68 65 20 73 |ing to d|o, the s|
|000008d0| 74 72 69 6e 67 20 66 69 | 74 73 2a 2f 0d 09 09 72 |tring fi|ts*/...r|
|000008e0| 65 74 75 72 6e 3b 0d 09 | 0d 09 6c 65 6e 20 3d 20 |eturn;..|..len = |
|000008f0| 73 20 5b 30 5d 3b 20 2f | 2a 20 63 75 72 72 65 6e |s [0]; /|* curren|
|00000900| 74 20 6c 65 6e 67 74 68 | 20 69 6e 20 63 68 61 72 |t length| in char|
|00000910| 61 63 74 65 72 73 2a 2f | 0d 09 0d 09 77 69 64 74 |acters*/|....widt|
|00000920| 68 20 2d 3d 20 43 68 61 | 72 57 69 64 74 68 20 28 |h -= Cha|rWidth (|
|00000930| 27 c9 27 29 3b 20 2f 2a | 20 73 75 62 74 72 61 63 |'.'); /*| subtrac|
|00000940| 74 20 77 69 64 74 68 20 | 6f 66 20 65 6c 6c 69 70 |t width |of ellip|
|00000950| 73 65 73 2a 2f 0d 09 09 | 0d 09 64 6f 20 7b 20 2f |ses*/...|..do { /|
|00000960| 2a 75 6e 74 69 6c 20 69 | 74 20 66 69 74 73 20 28 |*until i|t fits (|
|00000970| 6f 72 20 77 65 20 72 75 | 6e 20 6f 75 74 20 6f 66 |or we ru|n out of|
|00000980| 20 63 68 61 72 61 63 74 | 65 72 73 29 2a 2f 0d 09 | charact|ers)*/..|
|00000990| 0d 09 09 6e 65 77 77 69 | 64 74 68 20 2d 3d 20 43 |...newwi|dth -= C|
|000009a0| 68 61 72 57 69 64 74 68 | 20 28 73 20 5b 6c 65 6e |harWidth| (s [len|
|000009b0| 5d 29 3b 0d 09 09 0d 09 | 09 2d 2d 6c 65 6e 3b 0d |]);.....|.--len;.|
|000009c0| 09 7d 20 77 68 69 6c 65 | 20 28 28 6e 65 77 77 69 |.} while| ((newwi|
|000009d0| 64 74 68 20 3e 20 77 69 | 64 74 68 29 20 26 26 20 |dth > wi|dth) && |
|000009e0| 28 6c 65 6e 20 21 3d 20 | 30 29 29 3b 0d 09 0d 09 |(len != |0));....|
|000009f0| 2b 2b 6c 65 6e 3b 20 2f | 2a 6d 61 6b 65 20 72 6f |++len; /|*make ro|
|00000a00| 6f 6d 20 66 6f 72 20 74 | 68 65 20 65 6c 6c 69 70 |om for t|he ellip|
|00000a10| 73 65 73 2a 2f 0d 09 0d | 09 73 20 5b 6c 65 6e 5d |ses*/...|.s [len]|
|00000a20| 20 3d 20 27 c9 27 3b 20 | 0d 09 0d 09 73 20 5b 30 | = '.'; |....s [0|
|00000a30| 5d 20 3d 20 28 63 68 61 | 72 29 20 6c 65 6e 3b 0d |] = (cha|r) len;.|
|00000a40| 09 7d 20 2f 2a 65 6c 6c | 69 70 73 69 7a 65 2a 2f |.} /*ell|ipsize*/|
|00000a50| 0d 0d 0d 73 74 61 74 69 | 63 20 76 6f 69 64 20 63 |...stati|c void c|
|00000a60| 65 6e 74 65 72 73 74 72 | 69 6e 67 20 28 52 65 63 |enterstr|ing (Rec|
|00000a70| 74 20 72 2c 20 53 74 72 | 32 35 35 20 73 29 20 7b |t r, Str|255 s) {|
|00000a80| 0d 09 0d 09 2f 2a 0d 09 | 64 72 61 77 20 74 68 65 |..../*..|draw the|
|00000a90| 20 73 74 72 69 6e 67 20 | 69 6e 20 74 68 65 20 63 | string |in the c|
|00000aa0| 75 72 72 65 6e 74 20 66 | 6f 6e 74 2c 20 73 69 7a |urrent f|ont, siz|
|00000ab0| 65 20 61 6e 64 20 73 74 | 79 6c 65 2c 20 63 65 6e |e and st|yle, cen|
|00000ac0| 74 65 72 65 64 20 69 6e | 73 69 64 65 0d 09 74 68 |tered in|side..th|
|00000ad0| 65 20 69 6e 64 69 63 61 | 74 65 64 20 72 65 63 74 |e indica|ted rect|
|00000ae0| 61 6e 67 6c 65 2e 0d 09 | 2a 2f 0d 09 0d 09 72 65 |angle...|*/....re|
|00000af0| 67 69 73 74 65 72 20 73 | 68 6f 72 74 20 72 68 20 |gister s|hort rh |
|00000b00| 3d 20 72 2e 62 6f 74 74 | 6f 6d 20 2d 20 72 2e 74 |= r.bott|om - r.t|
|00000b10| 6f 70 3b 0d 09 72 65 67 | 69 73 74 65 72 20 73 68 |op;..reg|ister sh|
|00000b20| 6f 72 74 20 72 77 20 3d | 20 72 2e 72 69 67 68 74 |ort rw =| r.right|
|00000b30| 20 2d 20 72 2e 6c 65 66 | 74 3b 0d 09 72 65 67 69 | - r.lef|t;..regi|
|00000b40| 73 74 65 72 20 73 68 6f | 72 74 20 68 2c 20 76 3b |ster sho|rt h, v;|
|00000b50| 0d 09 46 6f 6e 74 49 6e | 66 6f 20 66 69 3b 0d 09 |..FontIn|fo fi;..|
|00000b60| 0d 09 47 65 74 46 6f 6e | 74 49 6e 66 6f 20 28 26 |..GetFon|tInfo (&|
|00000b70| 66 69 29 3b 0d 09 0d 09 | 65 6c 6c 69 70 73 69 7a |fi);....|ellipsiz|
|00000b80| 65 20 28 73 2c 20 72 77 | 29 3b 20 2f 2a 6d 61 6b |e (s, rw|); /*mak|
|00000b90| 65 20 73 75 72 65 20 69 | 74 20 66 69 74 73 20 69 |e sure i|t fits i|
|00000ba0| 6e 73 69 64 65 20 74 68 | 65 20 72 65 63 74 61 6e |nside th|e rectan|
|00000bb0| 67 6c 65 2c 20 77 69 64 | 74 68 2d 77 69 73 65 2a |gle, wid|th-wise*|
|00000bc0| 2f 0d 09 0d 09 68 20 3d | 20 72 2e 6c 65 66 74 20 |/....h =| r.left |
|00000bd0| 2b 20 28 28 72 77 20 2d | 20 53 74 72 69 6e 67 57 |+ ((rw -| StringW|
|00000be0| 69 64 74 68 20 28 73 29 | 29 20 2f 20 32 29 3b 0d |idth (s)|) / 2);.|
|00000bf0| 09 0d 09 76 20 3d 20 72 | 2e 74 6f 70 20 2b 20 28 |...v = r|.top + (|
|00000c00| 28 72 68 20 2d 20 28 66 | 69 2e 61 73 63 65 6e 74 |(rh - (f|i.ascent|
|00000c10| 20 2b 20 66 69 2e 64 65 | 73 63 65 6e 74 29 29 20 | + fi.de|scent)) |
|00000c20| 2f 20 32 29 20 2b 20 66 | 69 2e 61 73 63 65 6e 74 |/ 2) + f|i.ascent|
|00000c30| 3b 0d 09 0d 09 4d 6f 76 | 65 54 6f 20 28 68 2c 20 |;....Mov|eTo (h, |
|00000c40| 76 29 3b 0d 09 0d 09 43 | 6c 69 70 52 65 63 74 20 |v);....C|lipRect |
|00000c50| 28 26 72 29 3b 0d 09 0d | 09 44 72 61 77 53 74 72 |(&r);...|.DrawStr|
|00000c60| 69 6e 67 20 28 73 29 3b | 0d 09 7d 20 2f 2a 63 65 |ing (s);|..} /*ce|
|00000c70| 6e 74 65 72 73 74 72 69 | 6e 67 2a 2f 0d 0d 0d 73 |nterstri|ng*/...s|
|00000c80| 74 61 74 69 63 20 76 6f | 69 64 20 73 65 74 66 6f |tatic vo|id setfo|
|00000c90| 6e 74 73 69 7a 65 73 74 | 79 6c 65 20 28 73 68 6f |ntsizest|yle (sho|
|00000ca0| 72 74 20 66 6f 6e 74 6e | 75 6d 2c 20 73 68 6f 72 |rt fontn|um, shor|
|00000cb0| 74 20 66 6f 6e 74 73 69 | 7a 65 2c 20 73 68 6f 72 |t fontsi|ze, shor|
|00000cc0| 74 20 66 6f 6e 74 73 74 | 79 6c 65 29 20 7b 0d 0d |t fontst|yle) {..|
|00000cd0| 09 54 65 78 74 46 6f 6e | 74 20 28 66 6f 6e 74 6e |.TextFon|t (fontn|
|00000ce0| 75 6d 29 3b 0d 09 0d 09 | 54 65 78 74 53 69 7a 65 |um);....|TextSize|
|00000cf0| 20 28 66 6f 6e 74 73 69 | 7a 65 29 3b 0d 09 0d 09 | (fontsi|ze);....|
|00000d00| 54 65 78 74 46 61 63 65 | 20 28 66 6f 6e 74 73 74 |TextFace| (fontst|
|00000d10| 79 6c 65 29 3b 0d 09 7d | 20 2f 2a 73 65 74 66 6f |yle);..}| /*setfo|
|00000d20| 6e 74 73 69 7a 65 73 74 | 79 6c 65 2a 2f 0d 09 0d |ntsizest|yle*/...|
|00000d30| 09 0d 73 74 61 74 69 63 | 20 76 6f 69 64 20 75 70 |..static| void up|
|00000d40| 64 61 74 65 6d 61 69 6e | 77 69 6e 64 6f 77 20 28 |datemain|window (|
|00000d50| 76 6f 69 64 29 20 7b 0d | 09 0d 09 52 65 63 74 20 |void) {.|...Rect |
|00000d60| 72 3b 0d 09 53 74 72 32 | 35 35 20 73 3b 0d 09 0d |r;..Str2|55 s;...|
|00000d70| 09 72 20 3d 20 28 2a 6d | 61 69 6e 77 69 6e 64 6f |.r = (*m|ainwindo|
|00000d80| 77 29 2e 70 6f 72 74 52 | 65 63 74 3b 0d 09 0d 09 |w).portR|ect;....|
|00000d90| 45 72 61 73 65 52 65 63 | 74 20 28 26 72 29 3b 0d |EraseRec|t (&r);.|
|00000da0| 09 0d 09 73 65 74 66 6f | 6e 74 73 69 7a 65 73 74 |...setfo|ntsizest|
|00000db0| 79 6c 65 20 28 68 65 6c | 76 65 74 69 63 61 2c 20 |yle (hel|vetica, |
|00000dc0| 31 32 2c 20 30 29 3b 0d | 09 0d 09 63 65 6e 74 65 |12, 0);.|...cente|
|00000dd0| 72 73 74 72 69 6e 67 20 | 28 72 2c 20 77 69 6e 64 |rstring |(r, wind|
|00000de0| 6f 77 6d 65 73 73 61 67 | 65 29 3b 0d 09 0d 09 4e |owmessag|e);....N|
|00000df0| 75 6d 54 6f 53 74 72 69 | 6e 67 20 28 46 72 65 65 |umToStri|ng (Free|
|00000e00| 4d 65 6d 20 28 29 20 2f | 20 31 30 32 34 2c 20 73 |Mem () /| 1024, s|
|00000e10| 29 3b 0d 09 0d 09 4d 6f | 76 65 54 6f 20 28 72 2e |);....Mo|veTo (r.|
|00000e20| 6c 65 66 74 20 2b 20 33 | 2c 20 72 2e 62 6f 74 74 |left + 3|, r.bott|
|00000e30| 6f 6d 20 2d 20 33 29 3b | 0d 09 0d 09 73 65 74 66 |om - 3);|....setf|
|00000e40| 6f 6e 74 73 69 7a 65 73 | 74 79 6c 65 20 28 67 65 |ontsizes|tyle (ge|
|00000e50| 6e 65 76 61 2c 20 39 2c | 20 30 29 3b 0d 09 0d 09 |neva, 9,| 0);....|
|00000e60| 44 72 61 77 53 74 72 69 | 6e 67 20 28 73 29 3b 0d |DrawStri|ng (s);.|
|00000e70| 09 0d 09 44 72 61 77 53 | 74 72 69 6e 67 20 28 22 |...DrawS|tring ("|
|00000e80| 5c 70 4b 22 29 3b 0d 09 | 7d 20 2f 2a 75 70 64 61 |\pK");..|} /*upda|
|00000e90| 74 65 6d 61 69 6e 77 69 | 6e 64 6f 77 2a 2f 0d 09 |temainwi|ndow*/..|
|00000ea0| 0d 09 0d 73 74 61 74 69 | 63 20 42 6f 6f 6c 65 61 |...stati|c Boolea|
|00000eb0| 6e 20 73 65 74 77 69 6e | 64 6f 77 6d 65 73 73 61 |n setwin|dowmessa|
|00000ec0| 67 65 20 28 53 74 72 32 | 35 35 20 73 29 20 7b 0d |ge (Str2|55 s) {.|
|00000ed0| 09 0d 09 63 6f 70 79 73 | 74 72 69 6e 67 20 28 73 |...copys|tring (s|
|00000ee0| 2c 20 77 69 6e 64 6f 77 | 6d 65 73 73 61 67 65 29 |, window|message)|
|00000ef0| 3b 0d 09 0d 09 53 65 74 | 50 6f 72 74 20 28 6d 61 |;....Set|Port (ma|
|00000f00| 69 6e 77 69 6e 64 6f 77 | 29 3b 0d 09 0d 09 75 70 |inwindow|);....up|
|00000f10| 64 61 74 65 6d 61 69 6e | 77 69 6e 64 6f 77 20 28 |datemain|window (|
|00000f20| 29 3b 0d 09 0d 09 72 65 | 74 75 72 6e 20 28 74 72 |);....re|turn (tr|
|00000f30| 75 65 29 3b 0d 09 7d 20 | 2f 2a 73 65 74 77 69 6e |ue);..} |/*setwin|
|00000f40| 64 6f 77 6d 65 73 73 61 | 67 65 2a 2f 0d 0d 0d 73 |dowmessa|ge*/...s|
|00000f50| 74 61 74 69 63 20 42 6f | 6f 6c 65 61 6e 20 69 6e |tatic Bo|olean in|
|00000f60| 69 74 6d 61 69 6e 77 69 | 6e 64 6f 77 20 28 76 6f |itmainwi|ndow (vo|
|00000f70| 69 64 29 20 7b 0d 09 0d | 09 72 65 67 69 73 74 65 |id) {...|.registe|
|00000f80| 72 20 57 69 6e 64 6f 77 | 50 74 72 20 77 3b 0d 09 |r Window|Ptr w;..|
|00000f90| 0d 09 77 20 3d 20 6d 61 | 69 6e 77 69 6e 64 6f 77 |..w = ma|inwindow|
|00000fa0| 20 3d 20 47 65 74 4e 65 | 77 57 69 6e 64 6f 77 20 | = GetNe|wWindow |
|00000fb0| 28 31 32 38 2c 20 6e 69 | 6c 2c 20 28 57 69 6e 64 |(128, ni|l, (Wind|
|00000fc0| 6f 77 50 74 72 29 20 2d | 31 29 3b 0d 09 0d 09 69 |owPtr) -|1);....i|
|00000fd0| 66 20 28 77 20 3d 3d 20 | 6e 69 6c 29 0d 09 09 72 |f (w == |nil)...r|
|00000fe0| 65 74 75 72 6e 20 28 66 | 61 6c 73 65 29 3b 0d 09 |eturn (f|alse);..|
|00000ff0| 0d 09 53 68 6f 77 57 69 | 6e 64 6f 77 20 28 77 29 |..ShowWi|ndow (w)|
|00001000| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 20 28 74 72 75 |;....ret|urn (tru|
|00001010| 65 29 3b 0d 09 7d 20 2f | 2a 69 6e 69 74 6d 61 69 |e);..} /|*initmai|
|00001020| 6e 77 69 6e 64 6f 77 2a | 2f 0d 0d 0d 73 74 61 74 |nwindow*|/...stat|
|00001030| 69 63 20 76 6f 69 64 20 | 68 61 6e 64 6c 65 75 70 |ic void |handleup|
|00001040| 64 61 74 65 20 28 45 76 | 65 6e 74 52 65 63 6f 72 |date (Ev|entRecor|
|00001050| 64 20 2a 65 76 29 20 7b | 0d 09 0d 09 72 65 67 69 |d *ev) {|....regi|
|00001060| 73 74 65 72 20 57 69 6e | 64 6f 77 50 74 72 20 77 |ster Win|dowPtr w|
|00001070| 3b 0d 09 0d 09 77 20 3d | 20 28 57 69 6e 64 6f 77 |;....w =| (Window|
|00001080| 50 74 72 29 20 28 2a 65 | 76 29 2e 6d 65 73 73 61 |Ptr) (*e|v).messa|
|00001090| 67 65 3b 0d 09 0d 09 42 | 65 67 69 6e 55 70 64 61 |ge;....B|eginUpda|
|000010a0| 74 65 20 28 77 29 3b 0d | 09 0d 09 53 65 74 50 6f |te (w);.|...SetPo|
|000010b0| 72 74 20 28 77 29 3b 0d | 09 0d 09 75 70 64 61 74 |rt (w);.|...updat|
|000010c0| 65 6d 61 69 6e 77 69 6e | 64 6f 77 20 28 29 3b 0d |emainwin|dow ();.|
|000010d0| 09 0d 09 45 6e 64 55 70 | 64 61 74 65 20 28 77 29 |...EndUp|date (w)|
|000010e0| 3b 0d 09 7d 20 2f 2a 68 | 61 6e 64 6c 65 75 70 64 |;..} /*h|andleupd|
|000010f0| 61 74 65 2a 2f 0d 0d 0d | 73 74 61 74 69 63 20 76 |ate*/...|static v|
|00001100| 6f 69 64 20 68 61 6e 64 | 6c 65 64 72 61 67 20 28 |oid hand|ledrag (|
|00001110| 45 76 65 6e 74 52 65 63 | 6f 72 64 20 2a 65 76 2c |EventRec|ord *ev,|
|00001120| 20 57 69 6e 64 6f 77 50 | 74 72 20 77 29 20 7b 0d | WindowP|tr w) {.|
|00001130| 09 0d 09 52 65 63 74 20 | 72 3b 0d 0d 09 72 20 3d |...Rect |r;...r =|
|00001140| 20 71 64 2e 73 63 72 65 | 65 6e 42 69 74 73 2e 62 | qd.scre|enBits.b|
|00001150| 6f 75 6e 64 73 3b 20 0d | 09 0d 09 72 2e 74 6f 70 |ounds; .|...r.top|
|00001160| 20 3d 20 72 2e 74 6f 70 | 20 2b 20 47 65 74 4d 42 | = r.top| + GetMB|
|00001170| 61 72 48 65 69 67 68 74 | 20 28 29 3b 20 0d 09 0d |arHeight| (); ...|
|00001180| 09 49 6e 73 65 74 52 65 | 63 74 20 28 26 72 2c 20 |.InsetRe|ct (&r, |
|00001190| 34 2c 20 34 29 3b 0d 09 | 0d 09 44 72 61 67 57 69 |4, 4);..|..DragWi|
|000011a0| 6e 64 6f 77 20 28 77 2c | 20 28 2a 65 76 29 2e 77 |ndow (w,| (*ev).w|
|000011b0| 68 65 72 65 2c 20 26 72 | 29 3b 0d 09 7d 20 2f 2a |here, &r|);..} /*|
|000011c0| 68 61 6e 64 6c 65 64 72 | 61 67 2a 2f 0d 0d 0d 73 |handledr|ag*/...s|
|000011d0| 74 61 74 69 63 20 76 6f | 69 64 20 68 61 6e 64 6c |tatic vo|id handl|
|000011e0| 65 6d 65 6e 75 20 28 6c | 6f 6e 67 20 63 6f 64 65 |emenu (l|ong code|
|000011f0| 77 6f 72 64 29 20 7b 0d | 09 0d 09 72 65 67 69 73 |word) {.|...regis|
|00001200| 74 65 72 20 73 68 6f 72 | 74 20 69 64 6d 65 6e 75 |ter shor|t idmenu|
|00001210| 2c 20 69 64 69 74 65 6d | 3b 0d 09 0d 09 69 64 69 |, iditem|;....idi|
|00001220| 74 65 6d 20 3d 20 4c 6f | 57 6f 72 64 20 28 63 6f |tem = Lo|Word (co|
|00001230| 64 65 77 6f 72 64 29 3b | 0d 09 0d 09 69 64 6d 65 |deword);|....idme|
|00001240| 6e 75 20 3d 20 48 69 57 | 6f 72 64 20 28 63 6f 64 |nu = HiW|ord (cod|
|00001250| 65 77 6f 72 64 29 3b 0d | 09 0d 09 69 66 20 28 53 |eword);.|...if (S|
|00001260| 68 61 72 65 64 4d 65 6e | 75 48 69 74 20 28 69 64 |haredMen|uHit (id|
|00001270| 6d 65 6e 75 2c 20 69 64 | 69 74 65 6d 29 29 0d 09 |menu, id|item))..|
|00001280| 09 67 6f 74 6f 20 65 78 | 69 74 3b 0d 09 0d 09 73 |.goto ex|it;....s|
|00001290| 77 69 74 63 68 20 28 69 | 64 6d 65 6e 75 29 20 7b |witch (i|dmenu) {|
|000012a0| 0d 09 0d 09 09 63 61 73 | 65 20 61 70 70 6c 65 6d |.....cas|e applem|
|000012b0| 65 6e 75 3a 20 0d 09 09 | 09 73 77 69 74 63 68 20 |enu: ...|.switch |
|000012c0| 28 69 64 69 74 65 6d 29 | 20 7b 0d 09 09 09 09 0d |(iditem)| {......|
|000012d0| 09 09 09 09 63 61 73 65 | 20 61 62 6f 75 74 69 74 |....case| aboutit|
|000012e0| 65 6d 3a 0d 09 09 09 09 | 09 41 6c 65 72 74 20 28 |em:.....|.Alert (|
|000012f0| 32 36 32 2c 20 6e 69 6c | 29 3b 0d 09 09 09 09 09 |262, nil|);......|
|00001300| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001310| 0d 09 09 09 09 64 65 66 | 61 75 6c 74 3a 20 7b 0d |.....def|ault: {.|
|00001320| 09 09 09 09 0d 09 09 09 | 09 09 53 74 72 32 35 35 |........|..Str255|
|00001330| 20 73 3b 0d 09 09 09 09 | 09 0d 09 09 09 09 09 47 | s;.....|.......G|
|00001340| 65 74 49 74 65 6d 20 28 | 68 61 70 70 6c 65 6d 65 |etItem (|happleme|
|00001350| 6e 75 2c 20 69 64 69 74 | 65 6d 2c 20 73 29 3b 0d |nu, idit|em, s);.|
|00001360| 09 09 09 09 09 0d 09 09 | 09 09 09 4f 70 65 6e 44 |........|...OpenD|
|00001370| 65 73 6b 41 63 63 20 28 | 73 29 3b 0d 09 09 09 09 |eskAcc (|s);.....|
|00001380| 09 0d 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 09 09 |.......b|reak;...|
|00001390| 09 09 09 7d 0d 09 09 09 | 09 7d 20 2f 2a 73 77 69 |...}....|.} /*swi|
|000013a0| 74 63 68 2a 2f 0d 09 09 | 09 0d 09 09 09 62 72 65 |tch*/...|.....bre|
|000013b0| 61 6b 3b 20 2f 2a 61 70 | 70 6c 65 20 6d 65 6e 75 |ak; /*ap|ple menu|
|000013c0| 2a 2f 0d 0d 09 09 63 61 | 73 65 20 66 69 6c 65 6d |*/....ca|se filem|
|000013d0| 65 6e 75 3a 20 0d 09 09 | 09 73 77 69 74 63 68 20 |enu: ...|.switch |
|000013e0| 28 69 64 69 74 65 6d 29 | 20 7b 0d 09 09 09 09 0d |(iditem)| {......|
|000013f0| 09 09 09 09 63 61 73 65 | 20 71 75 69 74 69 74 65 |....case| quitite|
|00001400| 6d 3a 0d 09 09 09 09 0d | 09 09 09 09 09 66 6c 65 |m:......|.....fle|
|00001410| 78 69 74 6d 61 69 6e 6c | 6f 6f 70 20 3d 20 74 72 |xitmainl|oop = tr|
|00001420| 75 65 3b 0d 09 09 09 09 | 09 0d 09 09 09 09 09 62 |ue;.....|.......b|
|00001430| 72 65 61 6b 3b 0d 09 09 | 09 09 7d 20 2f 2a 73 77 |reak;...|..} /*sw|
|00001440| 69 74 63 68 2a 2f 0d 09 | 09 09 0d 09 09 09 62 72 |itch*/..|......br|
|00001450| 65 61 6b 3b 20 2f 2a 66 | 69 6c 65 20 6d 65 6e 75 |eak; /*f|ile menu|
|00001460| 2a 2f 0d 09 09 09 0d 09 | 09 7d 20 2f 2a 73 77 69 |*/......|.} /*swi|
|00001470| 74 63 68 69 6e 67 20 6f | 6e 20 77 68 69 63 68 20 |tching o|n which |
|00001480| 6d 65 6e 75 20 77 61 73 | 20 69 6e 76 6f 6b 65 64 |menu was| invoked|
|00001490| 2a 2f 0d 09 09 0d 09 65 | 78 69 74 3a 0d 09 0d 09 |*/.....e|xit:....|
|000014a0| 48 69 6c 69 74 65 4d 65 | 6e 75 20 28 30 29 3b 0d |HiliteMe|nu (0);.|
|000014b0| 09 7d 20 2f 2a 68 61 6e | 64 6c 65 6d 65 6e 75 2a |.} /*han|dlemenu*|
|000014c0| 2f 0d 0d 0d 73 74 61 74 | 69 63 20 76 6f 69 64 20 |/...stat|ic void |
|000014d0| 68 61 6e 64 6c 65 6d 6f | 75 73 65 20 28 45 76 65 |handlemo|use (Eve|
|000014e0| 6e 74 52 65 63 6f 72 64 | 20 2a 65 76 29 20 7b 0d |ntRecord| *ev) {.|
|000014f0| 0d 09 72 65 67 69 73 74 | 65 72 20 73 68 6f 72 74 |..regist|er short|
|00001500| 20 70 61 72 74 3b 0d 09 | 57 69 6e 64 6f 77 50 74 | part;..|WindowPt|
|00001510| 72 20 77 3b 0d 09 0d 09 | 70 61 72 74 20 3d 20 46 |r w;....|part = F|
|00001520| 69 6e 64 57 69 6e 64 6f | 77 20 28 28 2a 65 76 29 |indWindo|w ((*ev)|
|00001530| 2e 77 68 65 72 65 2c 20 | 26 77 29 3b 0d 09 0d 09 |.where, |&w);....|
|00001540| 69 66 20 28 77 20 21 3d | 20 6e 69 6c 29 20 0d 09 |if (w !=| nil) ..|
|00001550| 0d 09 09 69 66 20 28 77 | 20 21 3d 20 46 72 6f 6e |...if (w| != Fron|
|00001560| 74 57 69 6e 64 6f 77 20 | 28 29 29 20 7b 20 2f 2a |tWindow |()) { /*|
|00001570| 6a 75 73 74 20 6c 69 6b | 65 20 61 6c 6c 20 6f 74 |just lik|e all ot|
|00001580| 68 65 72 20 4d 61 63 20 | 70 72 6f 67 72 61 6d 73 |her Mac |programs|
|00001590| 2a 2f 0d 09 09 09 0d 09 | 09 09 53 65 6c 65 63 74 |*/......|..Select|
|000015a0| 57 69 6e 64 6f 77 20 28 | 77 29 3b 0d 09 09 09 09 |Window (|w);.....|
|000015b0| 09 09 09 0d 09 09 09 72 | 65 74 75 72 6e 3b 20 2f |.......r|eturn; /|
|000015c0| 2a 74 68 65 20 6d 6f 75 | 73 65 20 63 6c 69 63 6b |*the mou|se click|
|000015d0| 20 69 73 20 63 6f 6e 73 | 75 6d 65 64 20 62 79 20 | is cons|umed by |
|000015e0| 74 68 65 20 62 72 69 6e | 67 74 6f 66 72 6f 6e 74 |the brin|gtofront|
|000015f0| 20 6f 70 65 72 61 74 69 | 6f 6e 2a 2f 0d 09 09 09 | operati|on*/....|
|00001600| 7d 0d 09 0d 09 73 77 69 | 74 63 68 20 28 70 61 72 |}....swi|tch (par|
|00001610| 74 29 20 7b 0d 09 0d 09 | 09 63 61 73 65 20 69 6e |t) {....|.case in|
|00001620| 4d 65 6e 75 42 61 72 3a | 20 0d 09 09 09 68 61 6e |MenuBar:| ....han|
|00001630| 64 6c 65 6d 65 6e 75 20 | 28 4d 65 6e 75 53 65 6c |dlemenu |(MenuSel|
|00001640| 65 63 74 20 28 28 2a 65 | 76 29 2e 77 68 65 72 65 |ect ((*e|v).where|
|00001650| 29 29 3b 20 0d 09 09 09 | 0d 09 09 09 62 72 65 61 |)); ....|....brea|
|00001660| 6b 3b 0d 09 09 0d 09 09 | 63 61 73 65 20 69 6e 53 |k;......|case inS|
|00001670| 79 73 57 69 6e 64 6f 77 | 3a 0d 09 09 09 53 79 73 |ysWindow|:....Sys|
|00001680| 74 65 6d 43 6c 69 63 6b | 20 28 65 76 2c 20 77 29 |temClick| (ev, w)|
|00001690| 3b 20 0d 09 09 09 0d 09 | 09 09 62 72 65 61 6b 3b |; ......|..break;|
|000016a0| 0d 09 09 0d 09 09 63 61 | 73 65 20 69 6e 44 72 61 |......ca|se inDra|
|000016b0| 67 3a 0d 09 09 09 68 61 | 6e 64 6c 65 64 72 61 67 |g:....ha|ndledrag|
|000016c0| 20 28 65 76 2c 20 77 29 | 3b 0d 09 09 09 0d 09 09 | (ev, w)|;.......|
|000016d0| 09 62 72 65 61 6b 3b 0d | 09 09 09 0d 09 09 7d 20 |.break;.|......} |
|000016e0| 2f 2a 73 77 69 74 63 68 | 2a 2f 0d 09 7d 20 2f 2a |/*switch|*/..} /*|
|000016f0| 68 61 6e 64 6c 65 6d 6f | 75 73 65 2a 2f 0d 0d 0d |handlemo|use*/...|
|00001700| 73 74 61 74 69 63 20 76 | 6f 69 64 20 68 61 6e 64 |static v|oid hand|
|00001710| 6c 65 6b 65 79 73 74 72 | 6f 6b 65 20 28 45 76 65 |lekeystr|oke (Eve|
|00001720| 6e 74 52 65 63 6f 72 64 | 20 2a 65 76 29 20 7b 0d |ntRecord| *ev) {.|
|00001730| 0d 09 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |..regist|er char |
|00001740| 63 68 20 3d 20 28 2a 65 | 76 29 2e 6d 65 73 73 61 |ch = (*e|v).messa|
|00001750| 67 65 20 26 20 63 68 61 | 72 43 6f 64 65 4d 61 73 |ge & cha|rCodeMas|
|00001760| 6b 3b 0d 09 0d 09 69 66 | 20 28 53 68 61 72 65 64 |k;....if| (Shared|
|00001770| 53 63 72 69 70 74 52 75 | 6e 6e 69 6e 67 20 28 29 |ScriptRu|nning ()|
|00001780| 29 20 7b 20 2f 2a 63 6d | 64 2d 70 65 72 69 6f 64 |) { /*cm|d-period|
|00001790| 20 74 65 72 6d 69 6e 61 | 74 65 73 20 74 68 65 20 | termina|tes the |
|000017a0| 73 63 72 69 70 74 2a 2f | 0d 09 0d 09 09 69 66 20 |script*/|.....if |
|000017b0| 28 28 28 2a 65 76 29 2e | 6d 6f 64 69 66 69 65 72 |(((*ev).|modifier|
|000017c0| 73 20 26 20 63 6d 64 4b | 65 79 29 20 26 26 20 28 |s & cmdK|ey) && (|
|000017d0| 63 68 20 3d 3d 20 27 2e | 27 29 29 20 7b 20 0d 09 |ch == '.|')) { ..|
|000017e0| 09 09 0d 09 09 09 43 61 | 6e 63 65 6c 53 68 61 72 |......Ca|ncelShar|
|000017f0| 65 64 53 63 72 69 70 74 | 20 28 29 3b 20 2f 2a 63 |edScript| (); /*c|
|00001800| 61 6e 63 65 6c 20 74 68 | 65 20 73 68 61 72 65 64 |ancel th|e shared|
|00001810| 20 6d 65 6e 75 20 73 63 | 72 69 70 74 2c 20 69 66 | menu sc|ript, if|
|00001820| 20 6f 6e 65 20 69 73 20 | 72 75 6e 6e 69 6e 67 2a | one is |running*|
|00001830| 2f 0d 09 09 0d 09 09 09 | 72 65 74 75 72 6e 3b 0d |/.......|return;.|
|00001840| 09 09 09 7d 0d 09 09 7d | 0d 09 0d 09 68 61 6e 64 |...}...}|....hand|
|00001850| 6c 65 6d 65 6e 75 20 28 | 4d 65 6e 75 4b 65 79 20 |lemenu (|MenuKey |
|00001860| 28 63 68 29 29 3b 20 2f | 2a 6e 6f 74 20 63 6d 64 |(ch)); /|*not cmd|
|00001870| 2d 70 65 72 69 6f 64 2c | 20 70 72 6f 63 65 73 73 |-period,| process|
|00001880| 20 74 68 65 20 6e 6f 72 | 6d 61 6c 20 77 61 79 2a | the nor|mal way*|
|00001890| 2f 0d 09 7d 20 2f 2a 68 | 61 6e 64 6c 65 6b 65 79 |/..} /*h|andlekey|
|000018a0| 73 74 72 6f 6b 65 2a 2f | 0d 0d 0d 73 74 61 74 69 |stroke*/|...stati|
|000018b0| 63 20 76 6f 69 64 20 68 | 61 6e 64 6c 65 65 76 65 |c void h|andleeve|
|000018c0| 6e 74 20 28 45 76 65 6e | 74 52 65 63 6f 72 64 20 |nt (Even|tRecord |
|000018d0| 2a 65 76 29 20 7b 0d 09 | 0d 09 73 77 69 74 63 68 |*ev) {..|..switch|
|000018e0| 20 28 28 2a 65 76 29 2e | 77 68 61 74 29 20 7b 0d | ((*ev).|what) {.|
|000018f0| 09 0d 09 09 63 61 73 65 | 20 6b 65 79 44 6f 77 6e |....case| keyDown|
|00001900| 3a 20 63 61 73 65 20 61 | 75 74 6f 4b 65 79 3a 20 |: case a|utoKey: |
|00001910| 0d 09 09 09 68 61 6e 64 | 6c 65 6b 65 79 73 74 72 |....hand|lekeystr|
|00001920| 6f 6b 65 20 28 65 76 29 | 3b 0d 09 09 09 0d 09 09 |oke (ev)|;.......|
|00001930| 09 62 72 65 61 6b 3b 0d | 09 09 09 0d 09 09 63 61 |.break;.|......ca|
|00001940| 73 65 20 6d 6f 75 73 65 | 44 6f 77 6e 3a 0d 09 09 |se mouse|Down:...|
|00001950| 09 68 61 6e 64 6c 65 6d | 6f 75 73 65 20 28 65 76 |.handlem|ouse (ev|
|00001960| 29 3b 0d 09 09 09 0d 09 | 09 09 62 72 65 61 6b 3b |);......|..break;|
|00001970| 0d 09 09 0d 09 09 63 61 | 73 65 20 75 70 64 61 74 |......ca|se updat|
|00001980| 65 45 76 74 3a 0d 09 09 | 09 68 61 6e 64 6c 65 75 |eEvt:...|.handleu|
|00001990| 70 64 61 74 65 20 28 65 | 76 29 3b 0d 09 09 09 0d |pdate (e|v);.....|
|000019a0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 0d 09 09 |...break|;.......|
|000019b0| 63 61 73 65 20 6b 48 69 | 67 68 4c 65 76 65 6c 45 |case kHi|ghLevelE|
|000019c0| 76 65 6e 74 3a 0d 09 09 | 09 41 45 50 72 6f 63 65 |vent:...|.AEProce|
|000019d0| 73 73 41 70 70 6c 65 45 | 76 65 6e 74 20 28 65 76 |ssAppleE|vent (ev|
|000019e0| 29 3b 0d 09 09 09 0d 09 | 09 09 62 72 65 61 6b 3b |);......|..break;|
|000019f0| 0d 09 09 7d 20 2f 2a 73 | 77 69 74 63 68 2a 2f 0d |...} /*s|witch*/.|
|00001a00| 09 7d 20 2f 2a 68 61 6e | 64 6c 65 65 76 65 6e 74 |.} /*han|dleevent|
|00001a10| 2a 2f 0d 0d 0d 73 74 61 | 74 69 63 20 76 6f 69 64 |*/...sta|tic void|
|00001a20| 20 6d 61 69 6e 65 76 65 | 6e 74 6c 6f 6f 70 20 28 | maineve|ntloop (|
|00001a30| 76 6f 69 64 29 20 7b 0d | 09 0d 09 45 76 65 6e 74 |void) {.|...Event|
|00001a40| 52 65 63 6f 72 64 20 65 | 76 3b 0d 09 0d 09 77 68 |Record e|v;....wh|
|00001a50| 69 6c 65 20 28 21 66 6c | 65 78 69 74 6d 61 69 6e |ile (!fl|exitmain|
|00001a60| 6c 6f 6f 70 29 20 7b 0d | 09 09 0d 09 09 69 66 20 |loop) {.|.....if |
|00001a70| 28 57 61 69 74 4e 65 78 | 74 45 76 65 6e 74 20 28 |(WaitNex|tEvent (|
|00001a80| 65 76 65 72 79 45 76 65 | 6e 74 2c 20 26 65 76 2c |everyEve|nt, &ev,|
|00001a90| 20 31 2c 20 6e 69 6c 29 | 29 20 0d 09 09 09 68 61 | 1, nil)|) ....ha|
|00001aa0| 6e 64 6c 65 65 76 65 6e | 74 20 28 26 65 76 29 3b |ndleeven|t (&ev);|
|00001ab0| 0d 09 09 0d 09 09 43 68 | 65 63 6b 53 68 61 72 65 |......Ch|eckShare|
|00001ac0| 64 4d 65 6e 75 73 20 28 | 66 69 72 73 74 73 68 61 |dMenus (|firstsha|
|00001ad0| 72 65 64 6d 65 6e 75 29 | 3b 20 0d 09 09 7d 20 2f |redmenu)|; ...} /|
|00001ae0| 2a 77 68 69 6c 65 2a 2f | 0d 09 7d 20 2f 2a 6d 61 |*while*/|..} /*ma|
|00001af0| 69 6e 65 76 65 6e 74 6c | 6f 6f 70 2a 2f 0d 0d 0d |ineventl|oop*/...|
|00001b00| 73 74 61 74 69 63 20 76 | 6f 69 64 20 69 6e 69 74 |static v|oid init|
|00001b10| 6d 65 6e 75 73 20 28 76 | 6f 69 64 29 20 7b 0d 09 |menus (v|oid) {..|
|00001b20| 0d 09 2f 2a 0d 09 73 65 | 74 20 75 70 20 6f 75 72 |../*..se|t up our|
|00001b30| 20 61 70 70 6c 65 20 61 | 6e 64 20 66 69 6c 65 20 | apple a|nd file |
|00001b40| 6d 65 6e 75 73 2e 20 20 | 6e 6f 74 68 69 6e 67 20 |menus. |nothing |
|00001b50| 66 61 6e 63 79 2e 0d 09 | 2a 2f 0d 09 0d 09 68 61 |fancy...|*/....ha|
|00001b60| 70 70 6c 65 6d 65 6e 75 | 20 3d 20 47 65 74 4d 65 |pplemenu| = GetMe|
|00001b70| 6e 75 20 28 61 70 70 6c | 65 6d 65 6e 75 29 3b 20 |nu (appl|emenu); |
|00001b80| 0d 09 0d 09 41 64 64 52 | 65 73 4d 65 6e 75 20 28 |....AddR|esMenu (|
|00001b90| 68 61 70 70 6c 65 6d 65 | 6e 75 2c 20 27 44 52 56 |happleme|nu, 'DRV|
|00001ba0| 52 27 29 3b 20 0d 09 0d | 09 49 6e 73 65 72 74 4d |R'); ...|.InsertM|
|00001bb0| 65 6e 75 20 28 68 61 70 | 70 6c 65 6d 65 6e 75 2c |enu (hap|plemenu,|
|00001bc0| 20 30 29 3b 20 0d 09 0d | 09 68 66 69 6c 65 6d 65 | 0); ...|.hfileme|
|00001bd0| 6e 75 20 3d 20 47 65 74 | 4d 65 6e 75 20 28 66 69 |nu = Get|Menu (fi|
|00001be0| 6c 65 6d 65 6e 75 29 3b | 20 0d 09 0d 09 49 6e 73 |lemenu);| ....Ins|
|00001bf0| 65 72 74 4d 65 6e 75 20 | 28 68 66 69 6c 65 6d 65 |ertMenu |(hfileme|
|00001c00| 6e 75 2c 20 30 29 3b 0d | 09 0d 09 44 72 61 77 4d |nu, 0);.|...DrawM|
|00001c10| 65 6e 75 42 61 72 20 28 | 29 3b 0d 09 7d 20 2f 2a |enuBar (|);..} /*|
|00001c20| 69 6e 69 74 6d 65 6e 75 | 73 2a 2f 0d 0d 0d 73 74 |initmenu|s*/...st|
|00001c30| 61 74 69 63 20 76 6f 69 | 64 20 69 6e 69 74 6d 61 |atic voi|d initma|
|00001c40| 63 69 6e 74 6f 73 68 20 | 28 76 6f 69 64 29 20 7b |cintosh |(void) {|
|00001c50| 0d 0d 09 2f 2a 0d 09 74 | 68 65 20 6d 61 67 69 63 |.../*..t|he magic|
|00001c60| 20 73 74 75 66 66 20 74 | 68 61 74 20 65 76 65 72 | stuff t|hat ever|
|00001c70| 79 20 4d 61 63 69 6e 74 | 6f 73 68 20 61 70 70 6c |y Macint|osh appl|
|00001c80| 69 63 61 74 69 6f 6e 20 | 6e 65 65 64 73 20 74 6f |ication |needs to|
|00001c90| 20 64 6f 20 0d 09 62 65 | 66 6f 72 65 20 64 6f 69 | do ..be|fore doi|
|00001ca0| 6e 67 20 61 6e 79 74 68 | 69 6e 67 20 65 6c 73 65 |ng anyth|ing else|
|00001cb0| 2e 0d 09 2a 2f 0d 0d 09 | 72 65 67 69 73 74 65 72 |...*/...|register|
|00001cc0| 20 73 68 6f 72 74 20 69 | 3b 0d 09 09 0d 09 4d 61 | short i|;.....Ma|
|00001cd0| 78 41 70 70 6c 5a 6f 6e | 65 20 28 29 3b 0d 09 0d |xApplZon|e ();...|
|00001ce0| 09 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 20 3c |.for (i |= 0; i <|
|00001cf0| 20 31 30 3b 20 69 2b 2b | 29 20 0d 09 09 4d 6f 72 | 10; i++|) ...Mor|
|00001d00| 65 4d 61 73 74 65 72 73 | 20 28 29 3b 0d 09 0d 09 |eMasters| ();....|
|00001d10| 49 6e 69 74 47 72 61 66 | 20 28 26 71 64 2e 74 68 |InitGraf| (&qd.th|
|00001d20| 65 50 6f 72 74 29 3b 0d | 09 0d 09 49 6e 69 74 46 |ePort);.|...InitF|
|00001d30| 6f 6e 74 73 20 28 29 3b | 0d 09 0d 09 46 6c 75 73 |onts ();|....Flus|
|00001d40| 68 45 76 65 6e 74 73 20 | 28 65 76 65 72 79 45 76 |hEvents |(everyEv|
|00001d50| 65 6e 74 2c 20 30 29 3b | 0d 09 0d 09 49 6e 69 74 |ent, 0);|....Init|
|00001d60| 57 69 6e 64 6f 77 73 20 | 28 29 3b 0d 09 0d 09 49 |Windows |();....I|
|00001d70| 6e 69 74 4d 65 6e 75 73 | 20 28 29 3b 0d 09 0d 09 |nitMenus| ();....|
|00001d80| 54 45 49 6e 69 74 20 28 | 29 3b 0d 09 0d 09 49 6e |TEInit (|);....In|
|00001d90| 69 74 44 69 61 6c 6f 67 | 73 20 28 6e 69 6c 29 3b |itDialog|s (nil);|
|00001da0| 0d 09 0d 09 49 6e 69 74 | 43 75 72 73 6f 72 20 28 |....Init|Cursor (|
|00001db0| 29 3b 0d 09 0d 09 66 6f | 72 20 28 69 20 3d 20 30 |);....fo|r (i = 0|
|00001dc0| 3b 20 69 20 3c 20 35 3b | 20 69 2b 2b 29 20 7b 20 |; i < 5;| i++) { |
|00001dd0| 2f 2a 72 65 67 69 73 74 | 65 72 20 77 69 74 68 20 |/*regist|er with |
|00001de0| 4d 75 6c 74 69 66 69 6e | 64 65 72 2a 2f 0d 09 09 |Multifin|der*/...|
|00001df0| 0d 09 09 45 76 65 6e 74 | 52 65 63 6f 72 64 20 65 |...Event|Record e|
|00001e00| 76 3b 0d 09 09 0d 09 09 | 45 76 65 6e 74 41 76 61 |v;......|EventAva|
|00001e10| 69 6c 20 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |il (ever|yEvent, |
|00001e20| 26 65 76 29 3b 20 2f 2a | 73 65 65 20 54 4e 31 38 |&ev); /*|see TN18|
|00001e30| 30 20 2d 2d 20 73 70 6c | 61 73 68 20 73 63 72 65 |0 -- spl|ash scre|
|00001e40| 65 6e 2a 2f 0d 09 09 7d | 20 2f 2a 66 6f 72 2a 2f |en*/...}| /*for*/|
|00001e50| 0d 09 7d 20 2f 2a 69 6e | 69 74 6d 61 63 69 6e 74 |..} /*in|itmacint|
|00001e60| 6f 73 68 2a 2f 0d 0d 0d | 73 74 61 74 69 63 20 70 |osh*/...|static p|
|00001e70| 61 73 63 61 6c 20 4f 53 | 45 72 72 20 68 61 6e 64 |ascal OS|Err hand|
|00001e80| 6c 65 71 75 69 74 20 28 | 65 76 65 6e 74 2c 20 72 |lequit (|event, r|
|00001e90| 65 70 6c 79 2c 20 72 65 | 66 63 6f 6e 29 20 41 45 |eply, re|fcon) AE|
|00001ea0| 44 65 73 63 4c 69 73 74 | 20 2a 65 76 65 6e 74 2c |DescList| *event,|
|00001eb0| 20 2a 72 65 70 6c 79 3b | 20 6c 6f 6e 67 20 72 65 | *reply;| long re|
|00001ec0| 66 63 6f 6e 3b 20 7b 0d | 09 0d 09 2f 2a 44 65 62 |fcon; {.|.../*Deb|
|00001ed0| 75 67 53 74 72 20 28 22 | 5c 70 71 75 69 74 61 70 |ugStr ("|\pquitap|
|00001ee0| 70 22 29 3b 2a 2f 0d 09 | 0d 09 66 6c 65 78 69 74 |p");*/..|..flexit|
|00001ef0| 6d 61 69 6e 6c 6f 6f 70 | 20 3d 20 74 72 75 65 3b |mainloop| = true;|
|00001f00| 0d 09 0d 09 72 65 74 75 | 72 6e 20 28 6e 6f 45 72 |....retu|rn (noEr|
|00001f10| 72 29 3b 0d 09 7d 20 2f | 2a 68 61 6e 64 6c 65 71 |r);..} /|*handleq|
|00001f20| 75 69 74 2a 2f 0d 09 0d | 09 0d 73 74 61 74 69 63 |uit*/...|..static|
|00001f30| 20 70 61 73 63 61 6c 20 | 4f 53 45 72 72 20 68 61 | pascal |OSErr ha|
|00001f40| 6e 64 6c 65 6f 70 65 6e | 61 70 70 20 28 65 76 65 |ndleopen|app (eve|
|00001f50| 6e 74 2c 20 72 65 70 6c | 79 2c 20 72 65 66 63 6f |nt, repl|y, refco|
|00001f60| 6e 29 20 41 45 44 65 73 | 63 4c 69 73 74 20 2a 65 |n) AEDes|cList *e|
|00001f70| 76 65 6e 74 2c 20 2a 72 | 65 70 6c 79 3b 20 6c 6f |vent, *r|eply; lo|
|00001f80| 6e 67 20 72 65 66 63 6f | 6e 3b 20 7b 0d 09 0d 09 |ng refco|n; {....|
|00001f90| 2f 2a 44 65 62 75 67 53 | 74 72 20 28 22 5c 70 6f |/*DebugS|tr ("\po|
|00001fa0| 70 65 6e 61 70 70 22 29 | 3b 2a 2f 0d 09 0d 09 72 |penapp")|;*/....r|
|00001fb0| 65 74 75 72 6e 20 28 6e | 6f 45 72 72 29 3b 0d 09 |eturn (n|oErr);..|
|00001fc0| 7d 20 2f 2a 68 61 6e 64 | 6c 65 6f 70 65 6e 61 70 |} /*hand|leopenap|
|00001fd0| 70 2a 2f 0d 0d 0d 73 74 | 61 74 69 63 20 70 61 73 |p*/...st|atic pas|
|00001fe0| 63 61 6c 20 42 6f 6f 6c | 65 61 6e 20 6f 70 65 6e |cal Bool|ean open|
|00001ff0| 66 69 6c 65 73 70 65 63 | 20 28 66 73 29 20 46 53 |filespec| (fs) FS|
|00002000| 53 70 65 63 20 2a 66 73 | 3b 20 7b 0d 0d 09 2f 2a |Spec *fs|; {.../*|
|00002010| 44 65 62 75 67 53 74 72 | 20 28 28 2a 66 73 29 2e |DebugStr| ((*fs).|
|00002020| 6e 61 6d 65 29 3b 2a 2f | 0d 09 0d 09 72 65 74 75 |name);*/|....retu|
|00002030| 72 6e 20 28 74 72 75 65 | 29 3b 0d 09 7d 20 2f 2a |rn (true|);..} /*|
|00002040| 6f 70 65 6e 66 69 6c 65 | 73 70 65 63 2a 2f 0d 09 |openfile|spec*/..|
|00002050| 0d 0d 73 74 61 74 69 63 | 20 70 61 73 63 61 6c 20 |..static| pascal |
|00002060| 42 6f 6f 6c 65 61 6e 20 | 70 72 69 6e 74 66 69 6c |Boolean |printfil|
|00002070| 65 73 70 65 63 20 28 66 | 73 29 20 46 53 53 70 65 |espec (f|s) FSSpe|
|00002080| 63 20 2a 66 73 3b 20 7b | 0d 0d 09 2f 2a 44 65 62 |c *fs; {|.../*Deb|
|00002090| 75 67 53 74 72 20 28 28 | 2a 66 73 29 2e 6e 61 6d |ugStr ((|*fs).nam|
|000020a0| 65 29 3b 2a 2f 0d 09 0d | 09 72 65 74 75 72 6e 20 |e);*/...|.return |
|000020b0| 28 74 72 75 65 29 3b 0d | 09 7d 20 2f 2a 70 72 69 |(true);.|.} /*pri|
|000020c0| 6e 74 66 69 6c 65 73 70 | 65 63 2a 2f 0d 09 0d 0d |ntfilesp|ec*/....|
|000020d0| 73 74 61 74 69 63 20 70 | 61 73 63 61 6c 20 4f 53 |static p|ascal OS|
|000020e0| 45 72 72 20 68 61 6e 64 | 6c 65 6f 70 65 6e 20 28 |Err hand|leopen (|
|000020f0| 41 70 70 6c 65 45 76 65 | 6e 74 20 2a 65 76 65 6e |AppleEve|nt *even|
|00002100| 74 2c 20 41 70 70 6c 65 | 45 76 65 6e 74 20 2a 72 |t, Apple|Event *r|
|00002110| 65 70 6c 79 2c 20 6c 6f | 6e 67 20 72 65 66 63 6f |eply, lo|ng refco|
|00002120| 6e 29 20 7b 0d 09 0d 09 | 49 41 43 67 6c 6f 62 61 |n) {....|IACgloba|
|00002130| 6c 73 2e 65 76 65 6e 74 | 20 3d 20 65 76 65 6e 74 |ls.event| = event|
|00002140| 3b 0d 09 0d 09 49 41 43 | 67 6c 6f 62 61 6c 73 2e |;....IAC|globals.|
|00002150| 72 65 70 6c 79 20 3d 20 | 72 65 70 6c 79 3b 0d 09 |reply = |reply;..|
|00002160| 0d 09 49 41 43 67 6c 6f | 62 61 6c 73 2e 72 65 66 |..IACglo|bals.ref|
|00002170| 63 6f 6e 20 3d 20 72 65 | 66 63 6f 6e 3b 0d 09 0d |con = re|fcon;...|
|00002180| 09 72 65 74 75 72 6e 20 | 28 49 41 43 64 72 69 76 |.return |(IACdriv|
|00002190| 65 66 69 6c 65 6c 69 73 | 74 20 28 26 6f 70 65 6e |efilelis|t (&open|
|000021a0| 66 69 6c 65 73 70 65 63 | 29 29 3b 0d 09 7d 20 2f |filespec|));..} /|
|000021b0| 2a 68 61 6e 64 6c 65 6f | 70 65 6e 2a 2f 0d 09 0d |*handleo|pen*/...|
|000021c0| 09 09 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |...stati|c pascal|
|000021d0| 20 4f 53 45 72 72 20 68 | 61 6e 64 6c 65 70 72 69 | OSErr h|andlepri|
|000021e0| 6e 74 20 28 65 76 65 6e | 74 2c 20 72 65 70 6c 79 |nt (even|t, reply|
|000021f0| 2c 20 72 65 66 63 6f 6e | 29 20 41 45 44 65 73 63 |, refcon|) AEDesc|
|00002200| 4c 69 73 74 20 2a 65 76 | 65 6e 74 2c 20 2a 72 65 |List *ev|ent, *re|
|00002210| 70 6c 79 3b 20 6c 6f 6e | 67 20 72 65 66 63 6f 6e |ply; lon|g refcon|
|00002220| 3b 20 7b 0d 09 0d 09 49 | 41 43 67 6c 6f 62 61 6c |; {....I|ACglobal|
|00002230| 73 2e 65 76 65 6e 74 20 | 3d 20 65 76 65 6e 74 3b |s.event |= event;|
|00002240| 0d 09 0d 09 49 41 43 67 | 6c 6f 62 61 6c 73 2e 72 |....IACg|lobals.r|
|00002250| 65 70 6c 79 20 3d 20 72 | 65 70 6c 79 3b 0d 09 0d |eply = r|eply;...|
|00002260| 09 49 41 43 67 6c 6f 62 | 61 6c 73 2e 72 65 66 63 |.IACglob|als.refc|
|00002270| 6f 6e 20 3d 20 72 65 66 | 63 6f 6e 3b 0d 09 0d 09 |on = ref|con;....|
|00002280| 72 65 74 75 72 6e 20 28 | 49 41 43 64 72 69 76 65 |return (|IACdrive|
|00002290| 66 69 6c 65 6c 69 73 74 | 20 28 26 70 72 69 6e 74 |filelist| (&print|
|000022a0| 66 69 6c 65 73 70 65 63 | 29 29 3b 0d 09 7d 20 2f |filespec|));..} /|
|000022b0| 2a 68 61 6e 64 6c 65 70 | 72 69 6e 74 2a 2f 0d 09 |*handlep|rint*/..|
|000022c0| 0d 09 09 0d 73 74 61 74 | 69 63 20 70 61 73 63 61 |....stat|ic pasca|
|000022d0| 6c 20 4f 53 45 72 72 20 | 73 65 74 6d 65 73 73 61 |l OSErr |setmessa|
|000022e0| 67 65 76 65 72 62 20 28 | 41 70 70 6c 65 45 76 65 |geverb (|AppleEve|
|000022f0| 6e 74 20 2a 65 76 65 6e | 74 2c 20 41 70 70 6c 65 |nt *even|t, Apple|
|00002300| 45 76 65 6e 74 20 2a 72 | 65 70 6c 79 2c 20 6c 6f |Event *r|eply, lo|
|00002310| 6e 67 20 72 65 66 63 6f | 6e 29 20 7b 0d 09 0d 09 |ng refco|n) {....|
|00002320| 2f 2a 0d 09 64 69 73 70 | 6c 61 79 20 61 20 6d 65 |/*..disp|lay a me|
|00002330| 73 73 61 67 65 20 69 6e | 20 4f 75 74 6c 69 6e 65 |ssage in| Outline|
|00002340| 53 68 61 72 65 72 27 73 | 20 77 69 6e 64 6f 77 2e |Sharer's| window.|
|00002350| 0d 09 2a 2f 0d 0d 09 53 | 74 72 32 35 35 20 73 3b |..*/...S|tr255 s;|
|00002360| 0d 09 0d 09 69 66 20 28 | 53 68 61 72 65 64 53 63 |....if (|SharedSc|
|00002370| 72 69 70 74 43 61 6e 63 | 65 6c 6c 65 64 20 28 65 |riptCanc|elled (e|
|00002380| 76 65 6e 74 2c 20 72 65 | 70 6c 79 29 29 20 0d 09 |vent, re|ply)) ..|
|00002390| 09 72 65 74 75 72 6e 20 | 28 6e 6f 45 72 72 29 3b |.return |(noErr);|
|000023a0| 0d 09 0d 09 49 41 43 67 | 6c 6f 62 61 6c 73 2e 65 |....IACg|lobals.e|
|000023b0| 76 65 6e 74 20 3d 20 65 | 76 65 6e 74 3b 0d 09 0d |vent = e|vent;...|
|000023c0| 09 49 41 43 67 6c 6f 62 | 61 6c 73 2e 72 65 70 6c |.IACglob|als.repl|
|000023d0| 79 20 3d 20 72 65 70 6c | 79 3b 0d 09 0d 09 69 66 |y = repl|y;....if|
|000023e0| 20 28 21 49 41 43 67 65 | 74 73 74 72 69 6e 67 70 | (!IACge|tstringp|
|000023f0| 61 72 61 6d 20 28 28 4f | 53 54 79 70 65 29 20 6b |aram ((O|SType) k|
|00002400| 65 79 44 69 72 65 63 74 | 4f 62 6a 65 63 74 2c 20 |eyDirect|Object, |
|00002410| 73 29 29 0d 09 09 72 65 | 74 75 72 6e 20 28 6e 6f |s))...re|turn (no|
|00002420| 45 72 72 29 3b 0d 09 0d | 09 49 41 43 72 65 74 75 |Err);...|.IACretu|
|00002430| 72 6e 62 6f 6f 6c 65 61 | 6e 20 28 73 65 74 77 69 |rnboolea|n (setwi|
|00002440| 6e 64 6f 77 6d 65 73 73 | 61 67 65 20 28 73 29 29 |ndowmess|age (s))|
|00002450| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 20 28 6e 6f 45 |;....ret|urn (noE|
|00002460| 72 72 29 3b 0d 09 7d 20 | 2f 2a 73 65 74 6d 65 73 |rr);..} |/*setmes|
|00002470| 73 61 67 65 76 65 72 62 | 2a 2f 0d 09 0d 0d 73 74 |sageverb|*/....st|
|00002480| 61 74 69 63 20 70 61 73 | 63 61 6c 20 4f 53 45 72 |atic pas|cal OSEr|
|00002490| 72 20 73 65 74 6f 75 74 | 6c 69 6e 65 76 65 72 62 |r setout|lineverb|
|000024a0| 20 28 41 70 70 6c 65 45 | 76 65 6e 74 20 2a 65 76 | (AppleE|vent *ev|
|000024b0| 65 6e 74 2c 20 41 70 70 | 6c 65 45 76 65 6e 74 20 |ent, App|leEvent |
|000024c0| 2a 72 65 70 6c 79 2c 20 | 6c 6f 6e 67 20 72 65 66 |*reply, |long ref|
|000024d0| 63 6f 6e 29 20 7b 0d 09 | 0d 09 2f 2a 0d 09 73 65 |con) {..|../*..se|
|000024e0| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6f 75 |t the cu|rrent ou|
|000024f0| 74 6c 69 6e 65 20 66 72 | 6f 6d 20 74 68 65 20 6f |tline fr|om the o|
|00002500| 75 74 6c 69 6e 65 20 70 | 61 72 61 6d 65 74 65 72 |utline p|arameter|
|00002510| 20 70 61 73 73 65 64 20 | 61 73 20 70 61 72 74 0d | passed |as part.|
|00002520| 09 6f 66 20 74 68 65 20 | 41 70 70 6c 65 20 45 76 |.of the |Apple Ev|
|00002530| 65 6e 74 2e 0d 09 2a 2f | 0d 0d 09 68 64 6c 6f 75 |ent...*/|...hdlou|
|00002540| 74 6c 69 6e 65 72 65 63 | 6f 72 64 20 68 6f 75 74 |tlinerec|ord hout|
|00002550| 6c 69 6e 65 3b 0d 09 09 | 0d 09 69 66 20 28 53 68 |line;...|..if (Sh|
|00002560| 61 72 65 64 53 63 72 69 | 70 74 43 61 6e 63 65 6c |aredScri|ptCancel|
|00002570| 6c 65 64 20 28 65 76 65 | 6e 74 2c 20 72 65 70 6c |led (eve|nt, repl|
|00002580| 79 29 29 20 0d 09 09 72 | 65 74 75 72 6e 20 28 6e |y)) ...r|eturn (n|
|00002590| 6f 45 72 72 29 3b 0d 09 | 0d 09 49 41 43 67 6c 6f |oErr);..|..IACglo|
|000025a0| 62 61 6c 73 2e 65 76 65 | 6e 74 20 3d 20 65 76 65 |bals.eve|nt = eve|
|000025b0| 6e 74 3b 0d 09 0d 09 49 | 41 43 67 6c 6f 62 61 6c |nt;....I|ACglobal|
|000025c0| 73 2e 72 65 70 6c 79 20 | 3d 20 72 65 70 6c 79 3b |s.reply |= reply;|
|000025d0| 0d 09 0d 09 69 66 20 28 | 21 49 41 43 67 65 74 6f |....if (|!IACgeto|
|000025e0| 75 74 6c 69 6e 65 70 61 | 72 61 6d 20 28 28 4f 53 |utlinepa|ram ((OS|
|000025f0| 54 79 70 65 29 20 6b 65 | 79 44 69 72 65 63 74 4f |Type) ke|yDirectO|
|00002600| 62 6a 65 63 74 2c 20 26 | 68 6f 75 74 6c 69 6e 65 |bject, &|houtline|
|00002610| 29 29 0d 09 09 72 65 74 | 75 72 6e 20 28 6e 6f 45 |))...ret|urn (noE|
|00002620| 72 72 29 3b 0d 09 09 0d | 09 6f 70 44 69 73 70 6f |rr);....|.opDispo|
|00002630| 73 65 4f 75 74 6c 69 6e | 65 52 65 63 6f 72 64 20 |seOutlin|eRecord |
|00002640| 28 6f 75 74 6c 69 6e 65 | 64 61 74 61 29 3b 20 2f |(outline|data); /|
|00002650| 2a 6f 6e 6c 79 20 6f 6e | 65 20 6f 75 74 6c 69 6e |*only on|e outlin|
|00002660| 65 20 6d 61 6e 61 67 65 | 64 20 61 74 20 61 20 74 |e manage|d at a t|
|00002670| 69 6d 65 2a 2f 0d 09 0d | 09 6f 75 74 6c 69 6e 65 |ime*/...|.outline|
|00002680| 64 61 74 61 20 3d 20 68 | 6f 75 74 6c 69 6e 65 3b |data = h|outline;|
|00002690| 20 2f 2a 73 65 74 20 74 | 68 65 20 63 75 72 72 65 | /*set t|he curre|
|000026a0| 6e 74 20 6f 75 74 6c 69 | 6e 65 2a 2f 0d 09 0d 09 |nt outli|ne*/....|
|000026b0| 49 41 43 72 65 74 75 72 | 6e 62 6f 6f 6c 65 61 6e |IACretur|nboolean|
|000026c0| 20 28 74 72 75 65 29 3b | 0d 09 0d 09 72 65 74 75 | (true);|....retu|
|000026d0| 72 6e 20 28 6e 6f 45 72 | 72 29 3b 0d 09 7d 20 2f |rn (noEr|r);..} /|
|000026e0| 2a 73 65 74 6f 75 74 6c | 69 6e 65 76 65 72 62 2a |*setoutl|ineverb*|
|000026f0| 2f 0d 09 0d 09 0d 73 74 | 61 74 69 63 20 42 6f 6f |/.....st|atic Boo|
|00002700| 6c 65 61 6e 20 6e 6f 6f | 75 74 6c 69 6e 65 65 72 |lean noo|utlineer|
|00002710| 72 6f 72 20 28 76 6f 69 | 64 29 20 7b 0d 0d 09 69 |ror (voi|d) {...i|
|00002720| 66 20 28 6f 75 74 6c 69 | 6e 65 64 61 74 61 20 3d |f (outli|nedata =|
|00002730| 3d 20 6e 69 6c 29 20 7b | 0d 09 09 0d 09 09 49 41 |= nil) {|......IA|
|00002740| 43 72 65 74 75 72 6e 65 | 72 72 6f 72 20 28 31 2c |Creturne|rror (1,|
|00002750| 20 22 5c 70 4e 6f 20 6f | 75 74 6c 69 6e 65 20 68 | "\pNo o|utline h|
|00002760| 61 73 20 62 65 65 6e 20 | 73 65 6e 74 20 74 6f 20 |as been |sent to |
|00002770| 4f 75 74 6c 69 6e 65 53 | 68 61 72 65 72 22 29 3b |OutlineS|harer");|
|00002780| 0d 09 09 0d 09 09 72 65 | 74 75 72 6e 20 28 74 72 |......re|turn (tr|
|00002790| 75 65 29 3b 0d 09 09 7d | 0d 09 0d 09 72 65 74 75 |ue);...}|....retu|
|000027a0| 72 6e 20 28 66 61 6c 73 | 65 29 3b 0d 09 7d 20 2f |rn (fals|e);..} /|
|000027b0| 2a 6e 6f 6f 75 74 6c 69 | 6e 65 65 72 72 6f 72 2a |*nooutli|neerror*|
|000027c0| 2f 0d 09 0d 09 0d 73 74 | 61 74 69 63 20 70 61 73 |/.....st|atic pas|
|000027d0| 63 61 6c 20 4f 53 45 72 | 72 20 67 65 74 6f 75 74 |cal OSEr|r getout|
|000027e0| 6c 69 6e 65 76 65 72 62 | 20 28 41 70 70 6c 65 45 |lineverb| (AppleE|
|000027f0| 76 65 6e 74 20 2a 65 76 | 65 6e 74 2c 20 41 70 70 |vent *ev|ent, App|
|00002800| 6c 65 45 76 65 6e 74 20 | 2a 72 65 70 6c 79 2c 20 |leEvent |*reply, |
|00002810| 6c 6f 6e 67 20 72 65 66 | 63 6f 6e 29 20 7b 0d 09 |long ref|con) {..|
|00002820| 0d 09 2f 2a 0d 09 72 65 | 74 75 72 6e 20 74 68 65 |../*..re|turn the|
|00002830| 20 6f 75 74 6c 69 6e 65 | 20 74 68 61 74 27 73 20 | outline| that's |
|00002840| 72 65 73 69 64 65 6e 74 | 20 69 6e 20 4f 75 74 6c |resident| in Outl|
|00002850| 69 6e 65 53 68 61 72 65 | 72 2e 0d 09 2a 2f 0d 0d |ineShare|r...*/..|
|00002860| 09 68 64 6c 6f 75 74 6c | 69 6e 65 72 65 63 6f 72 |.hdloutl|inerecor|
|00002870| 64 20 68 6f 75 74 6c 69 | 6e 65 3b 0d 09 09 0d 09 |d houtli|ne;.....|
|00002880| 69 66 20 28 53 68 61 72 | 65 64 53 63 72 69 70 74 |if (Shar|edScript|
|00002890| 43 61 6e 63 65 6c 6c 65 | 64 20 28 65 76 65 6e 74 |Cancelle|d (event|
|000028a0| 2c 20 72 65 70 6c 79 29 | 29 20 0d 09 09 72 65 74 |, reply)|) ...ret|
|000028b0| 75 72 6e 20 28 6e 6f 45 | 72 72 29 3b 0d 09 0d 09 |urn (noE|rr);....|
|000028c0| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 65 76 65 6e 74 |IACgloba|ls.event|
|000028d0| 20 3d 20 65 76 65 6e 74 | 3b 0d 09 0d 09 49 41 43 | = event|;....IAC|
|000028e0| 67 6c 6f 62 61 6c 73 2e | 72 65 70 6c 79 20 3d 20 |globals.|reply = |
|000028f0| 72 65 70 6c 79 3b 0d 09 | 0d 09 69 66 20 28 6e 6f |reply;..|..if (no|
|00002900| 6f 75 74 6c 69 6e 65 65 | 72 72 6f 72 20 28 29 29 |outlinee|rror ())|
|00002910| 20 0d 09 09 72 65 74 75 | 72 6e 20 28 6e 6f 45 72 | ...retu|rn (noEr|
|00002920| 72 29 3b 0d 09 0d 09 49 | 41 43 72 65 74 75 72 6e |r);....I|ACreturn|
|00002930| 6f 75 74 6c 69 6e 65 20 | 28 6f 75 74 6c 69 6e 65 |outline |(outline|
|00002940| 64 61 74 61 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |data);..|..return|
|00002950| 20 28 6e 6f 45 72 72 29 | 3b 0d 09 7d 20 2f 2a 67 | (noErr)|;..} /*g|
|00002960| 65 74 6f 75 74 6c 69 6e | 65 76 65 72 62 2a 2f 0d |etoutlin|everb*/.|
|00002970| 09 0d 09 0d 73 74 61 74 | 69 63 20 76 6f 69 64 20 |....stat|ic void |
|00002980| 61 6c 6c 75 70 70 65 72 | 20 28 53 74 72 32 35 35 |allupper| (Str255|
|00002990| 20 62 73 29 20 7b 0d 09 | 0d 09 72 65 67 69 73 74 | bs) {..|..regist|
|000029a0| 65 72 20 63 68 61 72 20 | 6c 65 6e 20 3d 20 62 73 |er char |len = bs|
|000029b0| 20 5b 30 5d 3b 0d 09 72 | 65 67 69 73 74 65 72 20 | [0];..r|egister |
|000029c0| 63 68 61 72 20 2a 70 20 | 3d 20 28 63 68 61 72 20 |char *p |= (char |
|000029d0| 2a 29 20 26 62 73 20 5b | 31 5d 3b 0d 09 72 65 67 |*) &bs [|1];..reg|
|000029e0| 69 73 74 65 72 20 63 68 | 61 72 20 63 68 3b 0d 09 |ister ch|ar ch;..|
|000029f0| 0d 09 77 68 69 6c 65 20 | 28 6c 65 6e 2d 2d 29 20 |..while |(len--) |
|00002a00| 7b 0d 09 09 0d 09 09 63 | 68 20 3d 20 2a 70 3b 0d |{......c|h = *p;.|
|00002a10| 09 09 0d 09 09 69 66 20 | 28 28 63 68 20 3e 3d 20 |.....if |((ch >= |
|00002a20| 27 61 27 29 20 26 26 20 | 28 63 68 20 3c 3d 20 27 |'a') && |(ch <= '|
|00002a30| 7a 27 29 29 0d 09 09 09 | 2a 70 20 2d 3d 20 33 32 |z'))....|*p -= 32|
|00002a40| 3b 0d 09 09 09 0d 09 09 | 70 2b 2b 3b 0d 09 09 7d |;.......|p++;...}|
|00002a50| 20 2f 2a 77 68 69 6c 65 | 2a 2f 0d 09 7d 20 2f 2a | /*while|*/..} /*|
|00002a60| 61 6c 6c 75 70 70 65 72 | 2a 2f 0d 09 0d 09 0d 73 |allupper|*/.....s|
|00002a70| 74 61 74 69 63 20 42 6f | 6f 6c 65 61 6e 20 75 70 |tatic Bo|olean up|
|00002a80| 70 65 72 63 61 73 65 76 | 69 73 69 74 20 28 68 64 |percasev|isit (hd|
|00002a90| 6c 68 65 61 64 72 65 63 | 6f 72 64 20 68 6e 6f 64 |lheadrec|ord hnod|
|00002aa0| 65 29 20 7b 0d 09 0d 09 | 53 74 72 32 35 35 20 62 |e) {....|Str255 b|
|00002ab0| 73 3b 0d 09 0d 09 6f 70 | 47 65 74 48 65 61 64 53 |s;....op|GetHeadS|
|00002ac0| 74 72 69 6e 67 20 28 68 | 6e 6f 64 65 2c 20 62 73 |tring (h|node, bs|
|00002ad0| 29 3b 0d 09 0d 09 61 6c | 6c 75 70 70 65 72 20 28 |);....al|lupper (|
|00002ae0| 62 73 29 3b 0d 09 0d 09 | 6f 70 53 65 74 48 65 61 |bs);....|opSetHea|
|00002af0| 64 53 74 72 69 6e 67 20 | 28 68 6e 6f 64 65 2c 20 |dString |(hnode, |
|00002b00| 62 73 29 3b 0d 09 0d 09 | 72 65 74 75 72 6e 20 28 |bs);....|return (|
|00002b10| 74 72 75 65 29 3b 0d 09 | 7d 20 2f 2a 75 70 70 65 |true);..|} /*uppe|
|00002b20| 72 63 61 73 65 76 69 73 | 69 74 2a 2f 0d 09 0d 09 |rcasevis|it*/....|
|00002b30| 0d 73 74 61 74 69 63 20 | 70 61 73 63 61 6c 20 4f |.static |pascal O|
|00002b40| 53 45 72 72 20 75 70 70 | 65 72 63 61 73 65 6f 75 |SErr upp|ercaseou|
|00002b50| 74 6c 69 6e 65 76 65 72 | 62 20 28 41 70 70 6c 65 |tlinever|b (Apple|
|00002b60| 45 76 65 6e 74 20 2a 65 | 76 65 6e 74 2c 20 41 70 |Event *e|vent, Ap|
|00002b70| 70 6c 65 45 76 65 6e 74 | 20 2a 72 65 70 6c 79 2c |pleEvent| *reply,|
|00002b80| 20 6c 6f 6e 67 20 72 65 | 66 63 6f 6e 29 20 7b 0d | long re|fcon) {.|
|00002b90| 0d 09 2f 2a 0d 09 63 6f | 6e 76 65 72 74 20 61 6c |../*..co|nvert al|
|00002ba0| 6c 20 74 68 65 20 63 68 | 61 72 61 63 74 65 72 73 |l the ch|aracters|
|00002bb0| 20 69 6e 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | in the |current |
|00002bc0| 6f 75 74 6c 69 6e 65 20 | 74 6f 20 6c 6f 77 65 72 |outline |to lower|
|00002bd0| 63 61 73 65 2e 0d 09 2a | 2f 0d 0d 09 68 64 6c 6f |case...*|/...hdlo|
|00002be0| 75 74 6c 69 6e 65 72 65 | 63 6f 72 64 20 68 6f 75 |utlinere|cord hou|
|00002bf0| 74 6c 69 6e 65 3b 0d 09 | 09 0d 09 69 66 20 28 53 |tline;..|...if (S|
|00002c00| 68 61 72 65 64 53 63 72 | 69 70 74 43 61 6e 63 65 |haredScr|iptCance|
|00002c10| 6c 6c 65 64 20 28 65 76 | 65 6e 74 2c 20 72 65 70 |lled (ev|ent, rep|
|00002c20| 6c 79 29 29 20 2f 2a 70 | 61 72 74 20 6f 66 20 74 |ly)) /*p|art of t|
|00002c30| 68 65 20 6d 65 6e 75 20 | 73 68 61 72 69 6e 67 20 |he menu |sharing |
|00002c40| 70 72 6f 74 6f 63 6f 6c | 2a 2f 0d 09 09 72 65 74 |protocol|*/...ret|
|00002c50| 75 72 6e 20 28 6e 6f 45 | 72 72 29 3b 0d 09 0d 09 |urn (noE|rr);....|
|00002c60| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 65 76 65 6e 74 |IACgloba|ls.event|
|00002c70| 20 3d 20 65 76 65 6e 74 | 3b 0d 09 0d 09 49 41 43 | = event|;....IAC|
|00002c80| 67 6c 6f 62 61 6c 73 2e | 72 65 70 6c 79 20 3d 20 |globals.|reply = |
|00002c90| 72 65 70 6c 79 3b 0d 09 | 0d 09 69 66 20 28 6e 6f |reply;..|..if (no|
|00002ca0| 6f 75 74 6c 69 6e 65 65 | 72 72 6f 72 20 28 29 29 |outlinee|rror ())|
|00002cb0| 20 2f 2a 6e 6f 20 6f 75 | 74 6c 69 6e 65 20 74 6f | /*no ou|tline to|
|00002cc0| 20 75 70 70 65 72 63 61 | 73 65 2a 2f 0d 09 09 72 | upperca|se*/...r|
|00002cd0| 65 74 75 72 6e 20 28 6e | 6f 45 72 72 29 3b 0d 09 |eturn (n|oErr);..|
|00002ce0| 0d 09 6f 70 56 69 73 69 | 74 4f 75 74 6c 69 6e 65 |..opVisi|tOutline|
|00002cf0| 20 28 75 70 70 65 72 63 | 61 73 65 76 69 73 69 74 | (upperc|asevisit|
|00002d00| 29 3b 20 2f 2a 76 69 73 | 69 74 20 65 76 65 72 79 |); /*vis|it every|
|00002d10| 20 6e 6f 64 65 20 69 6e | 20 74 68 65 20 6f 75 74 | node in| the out|
|00002d20| 6c 69 6e 65 2a 2f 0d 09 | 0d 09 49 41 43 72 65 74 |line*/..|..IACret|
|00002d30| 75 72 6e 62 6f 6f 6c 65 | 61 6e 20 28 74 72 75 65 |urnboole|an (true|
|00002d40| 29 3b 0d 09 0d 09 72 65 | 74 75 72 6e 20 28 6e 6f |);....re|turn (no|
|00002d50| 45 72 72 29 3b 0d 09 7d | 20 2f 2a 75 70 70 65 72 |Err);..}| /*upper|
|00002d60| 63 61 73 65 6f 75 74 6c | 69 6e 65 76 65 72 62 2a |caseoutl|ineverb*|
|00002d70| 2f 0d 09 0d 09 0d 73 74 | 61 74 69 63 20 76 6f 69 |/.....st|atic voi|
|00002d80| 64 20 61 6c 6c 6c 6f 77 | 65 72 20 28 53 74 72 32 |d alllow|er (Str2|
|00002d90| 35 35 20 62 73 29 20 7b | 0d 09 0d 09 72 65 67 69 |55 bs) {|....regi|
|00002da0| 73 74 65 72 20 63 68 61 | 72 20 6c 65 6e 20 3d 20 |ster cha|r len = |
|00002db0| 62 73 20 5b 30 5d 3b 0d | 09 72 65 67 69 73 74 65 |bs [0];.|.registe|
|00002dc0| 72 20 63 68 61 72 20 2a | 70 20 3d 20 28 63 68 61 |r char *|p = (cha|
|00002dd0| 72 20 2a 29 20 26 62 73 | 20 5b 31 5d 3b 0d 09 72 |r *) &bs| [1];..r|
|00002de0| 65 67 69 73 74 65 72 20 | 63 68 61 72 20 63 68 3b |egister |char ch;|
|00002df0| 0d 09 0d 09 77 68 69 6c | 65 20 28 6c 65 6e 2d 2d |....whil|e (len--|
|00002e00| 29 20 7b 0d 09 09 0d 09 | 09 63 68 20 3d 20 2a 70 |) {.....|.ch = *p|
|00002e10| 3b 0d 09 09 0d 09 09 69 | 66 20 28 28 63 68 20 3e |;......i|f ((ch >|
|00002e20| 3d 20 27 41 27 29 20 26 | 26 20 28 63 68 20 3c 3d |= 'A') &|& (ch <=|
|00002e30| 20 27 5a 27 29 29 0d 09 | 09 09 2a 70 20 2b 3d 20 | 'Z'))..|..*p += |
|00002e40| 33 32 3b 0d 09 09 09 0d | 09 09 70 2b 2b 3b 0d 09 |32;.....|..p++;..|
|00002e50| 09 7d 20 2f 2a 77 68 69 | 6c 65 2a 2f 0d 09 7d 20 |.} /*whi|le*/..} |
|00002e60| 2f 2a 61 6c 6c 6c 6f 77 | 65 72 2a 2f 0d 09 0d 09 |/*alllow|er*/....|
|00002e70| 0d 73 74 61 74 69 63 20 | 42 6f 6f 6c 65 61 6e 20 |.static |Boolean |
|00002e80| 6c 6f 77 65 72 63 61 73 | 65 76 69 73 69 74 20 28 |lowercas|evisit (|
|00002e90| 68 64 6c 68 65 61 64 72 | 65 63 6f 72 64 20 68 6e |hdlheadr|ecord hn|
|00002ea0| 6f 64 65 29 20 7b 0d 09 | 0d 09 53 74 72 32 35 35 |ode) {..|..Str255|
|00002eb0| 20 62 73 3b 0d 09 0d 09 | 6f 70 47 65 74 48 65 61 | bs;....|opGetHea|
|00002ec0| 64 53 74 72 69 6e 67 20 | 28 68 6e 6f 64 65 2c 20 |dString |(hnode, |
|00002ed0| 62 73 29 3b 0d 09 0d 09 | 61 6c 6c 6c 6f 77 65 72 |bs);....|alllower|
|00002ee0| 20 28 62 73 29 3b 0d 09 | 0d 09 6f 70 53 65 74 48 | (bs);..|..opSetH|
|00002ef0| 65 61 64 53 74 72 69 6e | 67 20 28 68 6e 6f 64 65 |eadStrin|g (hnode|
|00002f00| 2c 20 62 73 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |, bs);..|..return|
|00002f10| 20 28 74 72 75 65 29 3b | 0d 09 7d 20 2f 2a 6c 6f | (true);|..} /*lo|
|00002f20| 77 65 72 63 61 73 65 76 | 69 73 69 74 2a 2f 0d 09 |wercasev|isit*/..|
|00002f30| 0d 09 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |...stati|c pascal|
|00002f40| 20 4f 53 45 72 72 20 6c | 6f 77 65 72 63 61 73 65 | OSErr l|owercase|
|00002f50| 6f 75 74 6c 69 6e 65 76 | 65 72 62 20 28 41 70 70 |outlinev|erb (App|
|00002f60| 6c 65 45 76 65 6e 74 20 | 2a 65 76 65 6e 74 2c 20 |leEvent |*event, |
|00002f70| 41 70 70 6c 65 45 76 65 | 6e 74 20 2a 72 65 70 6c |AppleEve|nt *repl|
|00002f80| 79 2c 20 6c 6f 6e 67 20 | 72 65 66 63 6f 6e 29 20 |y, long |refcon) |
|00002f90| 7b 0d 09 0d 09 2f 2a 0d | 09 63 6f 6e 76 65 72 74 |{..../*.|.convert|
|00002fa0| 20 61 6c 6c 20 74 68 65 | 20 63 68 61 72 61 63 74 | all the| charact|
|00002fb0| 65 72 73 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ers in t|he curre|
|00002fc0| 6e 74 20 6f 75 74 6c 69 | 6e 65 20 74 6f 20 6c 6f |nt outli|ne to lo|
|00002fd0| 77 65 72 63 61 73 65 2e | 0d 09 2a 2f 0d 0d 09 68 |wercase.|..*/...h|
|00002fe0| 64 6c 6f 75 74 6c 69 6e | 65 72 65 63 6f 72 64 20 |dloutlin|erecord |
|00002ff0| 68 6f 75 74 6c 69 6e 65 | 3b 0d 09 09 0d 09 69 66 |houtline|;.....if|
|00003000| 20 28 53 68 61 72 65 64 | 53 63 72 69 70 74 43 61 | (Shared|ScriptCa|
|00003010| 6e 63 65 6c 6c 65 64 20 | 28 65 76 65 6e 74 2c 20 |ncelled |(event, |
|00003020| 72 65 70 6c 79 29 29 20 | 2f 2a 70 61 72 74 20 6f |reply)) |/*part o|
|00003030| 66 20 74 68 65 20 6d 65 | 6e 75 20 73 68 61 72 69 |f the me|nu shari|
|00003040| 6e 67 20 70 72 6f 74 6f | 63 6f 6c 2a 2f 0d 09 09 |ng proto|col*/...|
|00003050| 72 65 74 75 72 6e 20 28 | 6e 6f 45 72 72 29 3b 0d |return (|noErr);.|
|00003060| 09 0d 09 49 41 43 67 6c | 6f 62 61 6c 73 2e 65 76 |...IACgl|obals.ev|
|00003070| 65 6e 74 20 3d 20 65 76 | 65 6e 74 3b 0d 09 0d 09 |ent = ev|ent;....|
|00003080| 49 41 43 67 6c 6f 62 61 | 6c 73 2e 72 65 70 6c 79 |IACgloba|ls.reply|
|00003090| 20 3d 20 72 65 70 6c 79 | 3b 0d 09 0d 09 69 66 20 | = reply|;....if |
|000030a0| 28 6e 6f 6f 75 74 6c 69 | 6e 65 65 72 72 6f 72 20 |(nooutli|neerror |
|000030b0| 28 29 29 20 2f 2a 6e 6f | 20 6f 75 74 6c 69 6e 65 |()) /*no| outline|
|000030c0| 20 74 6f 20 6c 6f 77 65 | 72 63 61 73 65 2a 2f 0d | to lowe|rcase*/.|
|000030d0| 09 09 72 65 74 75 72 6e | 20 28 6e 6f 45 72 72 29 |..return| (noErr)|
|000030e0| 3b 0d 09 09 0d 09 6f 70 | 56 69 73 69 74 4f 75 74 |;.....op|VisitOut|
|000030f0| 6c 69 6e 65 20 28 6c 6f | 77 65 72 63 61 73 65 76 |line (lo|wercasev|
|00003100| 69 73 69 74 29 3b 20 2f | 2a 76 69 73 69 74 20 65 |isit); /|*visit e|
|00003110| 76 65 72 79 20 6e 6f 64 | 65 20 69 6e 20 74 68 65 |very nod|e in the|
|00003120| 20 6f 75 74 6c 69 6e 65 | 2a 2f 0d 09 0d 09 49 41 | outline|*/....IA|
|00003130| 43 72 65 74 75 72 6e 62 | 6f 6f 6c 65 61 6e 20 28 |Creturnb|oolean (|
|00003140| 74 72 75 65 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |true);..|..return|
|00003150| 20 28 6e 6f 45 72 72 29 | 3b 0d 09 7d 20 2f 2a 6c | (noErr)|;..} /*l|
|00003160| 6f 77 65 72 63 61 73 65 | 6f 75 74 6c 69 6e 65 76 |owercase|outlinev|
|00003170| 65 72 62 2a 2f 0d 09 0d | 09 0d 76 6f 69 64 20 6d |erb*/...|..void m|
|00003180| 61 69 6e 20 28 76 6f 69 | 64 29 20 7b 0d 09 0d 09 |ain (voi|d) {....|
|00003190| 69 6e 69 74 6d 61 63 69 | 6e 74 6f 73 68 20 28 29 |initmaci|ntosh ()|
|000031a0| 3b 0d 09 0d 09 69 66 20 | 28 21 49 6e 69 74 53 68 |;....if |(!InitSh|
|000031b0| 61 72 65 64 4d 65 6e 75 | 73 20 28 29 29 0d 09 09 |aredMenu|s ())...|
|000031c0| 67 6f 74 6f 20 65 72 72 | 6f 72 3b 0d 09 0d 09 69 |goto err|or;....i|
|000031d0| 66 20 28 21 49 41 43 69 | 6e 73 74 61 6c 6c 68 61 |f (!IACi|nstallha|
|000031e0| 6e 64 6c 65 72 20 28 27 | 4f 55 54 53 27 2c 20 27 |ndler ('|OUTS', '|
|000031f0| 73 6d 73 67 27 2c 20 28 | 50 72 6f 63 50 74 72 29 |smsg', (|ProcPtr)|
|00003200| 20 73 65 74 6d 65 73 73 | 61 67 65 76 65 72 62 29 | setmess|ageverb)|
|00003210| 29 0d 09 09 67 6f 74 6f | 20 65 72 72 6f 72 3b 0d |)...goto| error;.|
|00003220| 09 0d 09 69 66 20 28 21 | 49 41 43 69 6e 73 74 61 |...if (!|IACinsta|
|00003230| 6c 6c 73 79 73 74 65 6d | 68 61 6e 64 6c 65 72 20 |llsystem|handler |
|00003240| 28 27 6f 75 74 73 27 2c | 20 27 73 6f 75 74 27 2c |('outs',| 'sout',|
|00003250| 20 28 50 72 6f 63 50 74 | 72 29 20 73 65 74 6f 75 | (ProcPt|r) setou|
|00003260| 74 6c 69 6e 65 76 65 72 | 62 29 29 0d 09 09 67 6f |tlinever|b))...go|
|00003270| 74 6f 20 65 72 72 6f 72 | 3b 0d 09 0d 09 69 66 20 |to error|;....if |
|00003280| 28 21 49 41 43 69 6e 73 | 74 61 6c 6c 73 79 73 74 |(!IACins|tallsyst|
|00003290| 65 6d 68 61 6e 64 6c 65 | 72 20 28 27 6f 75 74 73 |emhandle|r ('outs|
|000032a0| 27 2c 20 27 67 6f 75 74 | 27 2c 20 28 50 72 6f 63 |', 'gout|', (Proc|
|000032b0| 50 74 72 29 20 67 65 74 | 6f 75 74 6c 69 6e 65 76 |Ptr) get|outlinev|
|000032c0| 65 72 62 29 29 0d 09 09 | 67 6f 74 6f 20 65 72 72 |erb))...|goto err|
|000032d0| 6f 72 3b 0d 09 0d 09 69 | 66 20 28 21 49 41 43 69 |or;....i|f (!IACi|
|000032e0| 6e 73 74 61 6c 6c 73 79 | 73 74 65 6d 68 61 6e 64 |nstallsy|stemhand|
|000032f0| 6c 65 72 20 28 27 6f 75 | 74 73 27 2c 20 27 6c 63 |ler ('ou|ts', 'lc|
|00003300| 61 73 27 2c 20 28 50 72 | 6f 63 50 74 72 29 20 6c |as', (Pr|ocPtr) l|
|00003310| 6f 77 65 72 63 61 73 65 | 6f 75 74 6c 69 6e 65 76 |owercase|outlinev|
|00003320| 65 72 62 29 29 0d 09 09 | 67 6f 74 6f 20 65 72 72 |erb))...|goto err|
|00003330| 6f 72 3b 0d 09 0d 09 69 | 66 20 28 21 49 41 43 69 |or;....i|f (!IACi|
|00003340| 6e 73 74 61 6c 6c 73 79 | 73 74 65 6d 68 61 6e 64 |nstallsy|stemhand|
|00003350| 6c 65 72 20 28 27 6f 75 | 74 73 27 2c 20 27 75 63 |ler ('ou|ts', 'uc|
|00003360| 61 73 27 2c 20 28 50 72 | 6f 63 50 74 72 29 20 75 |as', (Pr|ocPtr) u|
|00003370| 70 70 65 72 63 61 73 65 | 6f 75 74 6c 69 6e 65 76 |ppercase|outlinev|
|00003380| 65 72 62 29 29 0d 09 09 | 67 6f 74 6f 20 65 72 72 |erb))...|goto err|
|00003390| 6f 72 3b 0d 09 0d 09 69 | 66 20 28 21 49 41 43 69 |or;....i|f (!IACi|
|000033a0| 6e 73 74 61 6c 6c 68 61 | 6e 64 6c 65 72 20 28 6b |nstallha|ndler (k|
|000033b0| 43 6f 72 65 45 76 65 6e | 74 43 6c 61 73 73 2c 20 |CoreEven|tClass, |
|000033c0| 6b 41 45 4f 70 65 6e 41 | 70 70 6c 69 63 61 74 69 |kAEOpenA|pplicati|
|000033d0| 6f 6e 2c 20 28 50 72 6f | 63 50 74 72 29 20 26 68 |on, (Pro|cPtr) &h|
|000033e0| 61 6e 64 6c 65 6f 70 65 | 6e 61 70 70 29 29 0d 09 |andleope|napp))..|
|000033f0| 09 67 6f 74 6f 20 65 72 | 72 6f 72 3b 0d 09 0d 09 |.goto er|ror;....|
|00003400| 69 66 20 28 21 49 41 43 | 69 6e 73 74 61 6c 6c 68 |if (!IAC|installh|
|00003410| 61 6e 64 6c 65 72 20 28 | 6b 43 6f 72 65 45 76 65 |andler (|kCoreEve|
|00003420| 6e 74 43 6c 61 73 73 2c | 20 6b 41 45 4f 70 65 6e |ntClass,| kAEOpen|
|00003430| 44 6f 63 75 6d 65 6e 74 | 73 2c 20 28 50 72 6f 63 |Document|s, (Proc|
|00003440| 50 74 72 29 20 26 68 61 | 6e 64 6c 65 6f 70 65 6e |Ptr) &ha|ndleopen|
|00003450| 29 29 0d 09 09 67 6f 74 | 6f 20 65 72 72 6f 72 3b |))...got|o error;|
|00003460| 0d 09 0d 09 69 66 20 28 | 21 49 41 43 69 6e 73 74 |....if (|!IACinst|
|00003470| 61 6c 6c 68 61 6e 64 6c | 65 72 20 28 6b 43 6f 72 |allhandl|er (kCor|
|00003480| 65 45 76 65 6e 74 43 6c | 61 73 73 2c 20 6b 41 45 |eEventCl|ass, kAE|
|00003490| 50 72 69 6e 74 44 6f 63 | 75 6d 65 6e 74 73 2c 20 |PrintDoc|uments, |
|000034a0| 28 50 72 6f 63 50 74 72 | 29 20 26 68 61 6e 64 6c |(ProcPtr|) &handl|
|000034b0| 65 70 72 69 6e 74 29 29 | 0d 09 09 67 6f 74 6f 20 |eprint))|...goto |
|000034c0| 65 72 72 6f 72 3b 0d 09 | 0d 09 69 66 20 28 21 49 |error;..|..if (!I|
|000034d0| 41 43 69 6e 73 74 61 6c | 6c 68 61 6e 64 6c 65 72 |ACinstal|lhandler|
|000034e0| 20 28 6b 43 6f 72 65 45 | 76 65 6e 74 43 6c 61 73 | (kCoreE|ventClas|
|000034f0| 73 2c 20 6b 41 45 51 75 | 69 74 41 70 70 6c 69 63 |s, kAEQu|itApplic|
|00003500| 61 74 69 6f 6e 2c 20 28 | 50 72 6f 63 50 74 72 29 |ation, (|ProcPtr)|
|00003510| 20 26 68 61 6e 64 6c 65 | 71 75 69 74 29 29 0d 09 | &handle|quit))..|
|00003520| 09 67 6f 74 6f 20 65 72 | 72 6f 72 3b 0d 0d 09 69 |.goto er|ror;...i|
|00003530| 6e 69 74 6d 65 6e 75 73 | 20 28 29 3b 0d 09 0d 09 |nitmenus| ();....|
|00003540| 69 6e 69 74 6d 61 69 6e | 77 69 6e 64 6f 77 20 28 |initmain|window (|
|00003550| 29 3b 0d 09 0d 09 6d 61 | 69 6e 65 76 65 6e 74 6c |);....ma|ineventl|
|00003560| 6f 6f 70 20 28 29 3b 0d | 09 09 0d 09 45 78 69 74 |oop ();.|....Exit|
|00003570| 54 6f 53 68 65 6c 6c 20 | 28 29 3b 0d 09 0d 09 65 |ToShell |();....e|
|00003580| 72 72 6f 72 3a 0d 09 0d | 09 41 6c 65 72 74 20 28 |rror:...|.Alert (|
|00003590| 32 36 31 2c 20 6e 69 6c | 29 3b 20 2f 2a 74 68 69 |261, nil|); /*thi|
|000035a0| 73 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 72 65 |s applic|ation re|
|000035b0| 71 75 69 72 65 73 20 73 | 79 73 74 65 6d 20 37 2e |quires s|ystem 7.|
|000035c0| 30 20 6f 72 20 68 69 67 | 68 65 72 2a 2f 0d 09 09 |0 or hig|her*/...|
|000035d0| 0d 09 45 78 69 74 54 6f | 53 68 65 6c 6c 20 28 29 |..ExitTo|Shell ()|
|000035e0| 3b 0d 09 7d 20 2f 2a 6d | 61 69 6e 2a 2f 0d 0d 0d |;..} /*m|ain*/...|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003600| 00 00 01 00 00 00 01 36 | 00 00 00 36 00 00 00 1e |.......6|...6....|
|00003610| 50 01 01 a2 51 02 20 ad | f9 f2 51 fc 02 00 44 26 |P...Q. .|..Q...D&|
|00003620| 4b 51 03 20 2d fe 10 20 | 80 67 bb 55 01 2d 4b 16 |KQ. -.. |.g.U.-K.|
|00003630| 06 6d 61 69 6e 2e 63 b4 | 02 00 00 00 50 61 72 74 |.main.c.|....Part|
|00003640| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 81 ca |SITx....|........|
|00003650| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003670| 00 00 a9 81 44 c2 00 00 | 00 00 00 00 01 54 5f 02 |....D...|.....T_.|
|00003680| 4a 2d f6 bf 67 01 67 2c | 98 52 59 54 13 48 68 00 |J-..g.g,|.RYT.Hh.|
|00003690| 02 48 7a 01 00 72 25 59 | 54 17 3f 10 72 ff 2f 01 |.Hz..r%Y|T.?.r./.|
|000036a0| 70 01 1f 00 2f 2e 00 0c | 03 aa 45 28 5f 60 2a 98 |p.../...|..E(_`*.|
|000036b0| 52 59 54 20 0f 01 00 46 | 25 59 54 20 10 01 a9 13 |RYT ...F|%YT ....|
|000036c0| 28 5f 01 a0 1b 8d 04 66 | 0e 20 4b a0 1f 70 94 56 |(_.....f|. K..p.V|
|000036d0| 50 01 01 da 67 01 39 7c | 71 01 00 6c 8d 2b 79 65 |P...g.9||q..l.+ye|
|000036e0| 4e 4b 63 01 ff c4 41 42 | 55 30 76 5b 57 12 ff c4 |NKc...AB|U0v[W...|
|000036f0| 4e ad 48 67 01 67 5e 31 | 32 c6 33 30 3b 6d d8 7f |N.Hg.g^1|2.30;m..|
|00003700| 00 00 00 2f 02 00 80 00 | 00 00 06 32 2e 30 72 63 |.../....|...2.0rc|
|00003710| 31 21 32 2e 30 72 63 31 | 3b 20 a9 20 31 39 39 32 |1!2.0rc1|; . 1992|
|00003720| 2c 20 55 73 65 72 4c 61 | 6e 64 20 53 6f 66 74 77 |, UserLa|nd Softw|
|00003730| 61 72 65 65 72 65 00 00 | 01 00 00 00 01 36 00 00 |areere..|.....6..|
|00003740| 00 36 00 00 00 1e 00 ed | cb 18 0d 98 00 00 00 1c |.6......|........|
|00003750| 00 1e ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+